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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
COMMON, as to the accuracy and functioning of the program 
and related program material, nor shall the fact of distribution 
constitute any such warranty, and no responsibility is assumed 
by the contributor or COMMON, in connection therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 





Program No._ Date_ 

Program Name: ,_ 



1. Does the abstract adequately describe what the program is and what Yes No_ 

it does? 

Comment , „ 



2. Does the program do what the abstract says ? Yes No_ 

C om m ent_ 

3. Is the description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

C om m ent 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Commen t ________ 

6. Does the object program run satisfactorily? Yes No_ 

Comment . 

7. Number of test cases ru n Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes Nq_ 

C om m ent_ , 

8. Does the Program meet the minimal standards of COMMON? Yes Nq_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment ; 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

Company 



Mr. Richard L. Pratt 

Data Corporation Address 

7500 Old Xenia Pike 

Dayton 32, Ohio Users Group Code 



© THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AND 
EVALUATION PROCEDURE. NONME MBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVA LUATION. 
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1620 Correction 
9.2.016 



April 10, 1964 



"DTM Design System" 



Cards 76-78 of the Alignment Design/Offsets object decks of this 
program are out of sort. 

The decks have been replaced. The attached listing dated April 3, 
1964 replaces the original listing. 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for the IBM Data Processing Systems. If such announce- 
ment indicates a change to the program decks or tapes, a 
complete new program, if needed, should be requested 
from the Program Distribution Center. 
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DIGITAL TERRAIN NODEL 
DESIGN SYSTEM 

20K PROGRAM MANUAL 



INTRODUCTION 

This manual describes a set of electronic computer programs 
for the final location and design of highways. This series of programs, 
known as the D.T.M. Design System, employs recently developed techniques 
of electronic computation and systems engineering in the very complex 
job of highway design. The programs making up the system have been 
integrated so that they supplement each other and closely parallel 
the design procedure followed by the highway engineer. 

Since small line and grade changes are frequent even in the design 
stage of a project, the ability to make these changes easily is highly 
desirable. This is accomplished by the utilization within the system 
of curved baselines. Terrain data is taken on both sides of the base- 
line from either field notes or maps. 

On some projects, exact final line and grade selection depends 
upon a rather careful quanltity determination. By defining the shape of 
template using links, it can conform to almost any specified shape. 
At the same time, it retains flexibility. Templates can be automatically 
varied to fit new requirements as the computations progress. Bifurcated 
roadways and separated grades can also be handled. 

Although the System itself is based on principles which apply to 
a wide variety of electronic computers, the programs described in this 
manual were written in FORTRAN for a 20K I.B.M. 1620 Data Processing 
System. The structure of the programs is dependent upon the memory size 
of the computer utilized. 




PROGRAMS IN THE SYSTEM 



The System can be iKlde^ loc-ca^K i*tc Kv separate phase*: 
the Terrain Peoarat > on Phase, the Alignment fresic* Phase, the Roadway 
Design Phase, and the Material Classification Phase. Each is described 
in more detail in the sections that folio*. Each phase is implemented 
with one or more computer programs, as follows'. 

Terrain Preparation: 

Terrain Preparation/Edit 
Al ignment Design: 

Alignment Design/Geometry 

Alignment Design/Offset 

Profile Plot 
Roadway Design: 

Roadway Design/Preparation 

Roadway Design/Template 

Roadway Design/Volumes 

Slope Stakes and Mass Haul Plot 
Materials Classification: 

Materials Classification/Preparation 

Materials Classification/Volumes n 

TERRAIN PREPARATION PHASE 

Terrain data is defined relative to a baseline. The baseline is 
in turn defined using the state plane coordinates of each P.I. and one 
curVe defining parameter. The terrain model is made up of discrete 
sample points taken along scan lines or cross sections. Within the 
band of interest, scan lines are spaced arbitrarily depending on the 
nature of the terrain and the accuracy requirements. Sample points 
are taken from left to right across each section. Each terrain point 



DEFINITION OF MODEL 



TERRAIN DATA PROCUREMENT 



TERRAIN DATA POINTS 




© 



Page 3 



is referenced by giving its elevation and its offset distance from 
the baseline. Points to the left of the baseline are recorded with 
a negative sign. Points to the right are considered to have a pos- 
itive offset. 

Terrain data may be taken directly from field notes or from 
topographic maps. After the terrain data has been punched into cards, 
the Terrain Preparation/Edit program is used to ascertain the accuracy 
of the data. Those points which do not conform to the logical require- 
ments specified by the engineer are identified by the machine for hand 
check i ng. 

ALIGNMENT DESIGN PHASE 

The purpose of this phase is the calculation of the geometry of 
the highway centerline alignment and its relationship with the 
baseline to which the terrain data is referenced. Once this relation 
has been established at each cross section, the ground profile 
of the alignment can be interpolated from the terrain model. Both 
baselines and cent^rlines are defined by the state plane coordinates 
of each P.I. and one curve defining parameter given at each P.I. The 
Alignment Design/Geometry program will compute the geometry of the 
defined baselines and then proceed to compute the geometry of any : 
number of desired centerline alignments. Geometry information for 
both alignments is left in memory to be used by the Alignment Design/Offsets 
program, which will compute the offset distances from the baseline to 
the centerline. It will then interpolate terrain data on each cross section 
to find the ground elevation along the centerline of the n Vr-v . 
roadway ■ and along two parallel alignments whose offset distance is 
specified by the engineer. 

The Plot Profile program uses the output from this phase to plot 
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a ground profile under the centerline and the two offset lines. This 
profile will be used by the engineer to design the vertical alignment. 

ROADWAY DESIGN PHASE 

After the engineer has designed the vertical alignment and has 
delineated the template shape and its changes along the roadway, he 
may request additional information from the computer. This phase, which 
has been designated the Roadway Design Phase, includes the computation 
of vertical geometry and grades, template modifications, such as 
superelevation, slope intercepts, area, volumes, slope limits plots, 
and mass haul diagram. 

Since trial alignments will ordinarily call for only part of the 
terrain information that is contained in the digitized band of interest, 
the Roadway Design/Preparation program can be used to reduce the 
width of the terrain data band to describe only the area adjacent to 
each trial alignment. Terrain and offsets cards from the Alignment Design 
Phase are also collated for use in subsequent passes. 

The vertical geometry of the alignment is defined by giving the 
elevation and station number of each vertical P.I. and the length of 
each curve to be computed. The roadway template is defined by a series 
of links, each specified by a dy and a dz, starting at the middle and 
working both ways. The size of each link is written on an input form 
along with template changes and other template parameters. After this 
information has been punched into cards, it is entered into the Roadway 
Design/Template program which computes the vertical geometry of the 
trial alignment and the changes in the road template, where such changes 
occu r . 

Output from this program is entered directly into the Roadway 
Design/Volumes program which computes slope intercepts and earthwork 
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volumes. Through the use of the Combined Plot program, card decks 
are obtained which can be listed to produce plots of the slope limits 
and mass haul diagram. The programs in this phase may be used indiv- 
idually without using the Al ignment Design programs if the alignment 
is already fixed. 

MATERIALS CLASSIFICATION PHASE 

The Materials Classification Phase is included in the system to 
handle three special cases. The first of these is the case of over- 
lapping slope stakes, where two separate roadways, paralleling each 
other, overlap slope limits. The second case is that where the roadway 
lies within pock and where some estimate of rock volume is necessary. 
A third use for the programs is the calculation of earthwork quantities 
in interchange areas. If none of these special cases occurs, it is 
unnecessary to use the programs. 

If an over lapping- temp late situation exists, the first pass 
through the system is made with one of the roadways and the original 
terrain. The Materials Classification/Preparation program takes the 
Roadway Design/Volumes program output and original terrain and computes 
the "as-built" terrain. The Classified Materials/Volumes program takes thi 
"as-built" terrain along with the rock template and computes the rock 
vol timer to be removed. 

The determination of interchange volumes is accomplished using 
the following simple approach. First, the ramps are laid out and designed 
on a contour map. The Alignment Design and Roadway Design programs may 
be very useful during this phase. Next, the "as-built" contours for the 
entire interchange are established. Terrain information for an "as-built" 
terrain model is then stripped off using the original baseline. After 
editing, this "as-bullt" terrain is run with the original terrain model 
in the Materials Classification/Volumes program to produce cut and fill 
quantities for the entire interchange. 

10 
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USING THE SYSTEM 

The DTM Design System has been programmed primarily to handle the 
type of computations encountered during the Preliminary Engineering 
Design phase, although its use is certainly not limited to this phase. It 
is designed to be able to handle terrain models produced from either 
map or field data with equal ease. Terrain data, once digitized, may 
be used over and over for either small line shifts or for major line 
changes, whether in the initial location studies or in the final design 
computations. When a change becomes necessary, it can be easily and 
econom i ca 1 1 y made . 

DTM computations are done in phases. Each phase is closely inte- 
grated with the design activity of the engineer. For each of the phases, 
input sheets are completed by the designer and submitted to the computing 
center. The input information is punched directly into cards and fed 
to the computer along with the digital terrain model in the form of 
a deck of cards. After the answers have been received, they are printed 
with the input and returned to the designer for further engineering 
before the next phase in undertaken. 

Many benefits are obtained as a result of a detailed DTM analysis 
during the early phases of a project. Right-of-way can be accurately 
and quickly estimated; Pipe and drainage requirements can be measured 
directly from machine made plots. The effect of sTde hill location is 
immediately apparent. Clearing and grubbing areas can be easily 
measured. Earthwork quantities are more .'easily balanced and optimized. 
In many instances remarkable savings can be realized because of the 
ability to try several alignments. 



II 



USING THE SYSTEM FOR HIGHWAY LOCATION 



C 



TERRAIN DATA 
PROCUREMENT 



D 



TERRAIN EDIT 
PROGRAM 



SELECTION OF 
HORIZONTAL ALIGNMENT 



ALIGNMENT 
DESIGN/ GEOMETRY 



ALIGNMENT 
OESIGN / OFFSETS 



PROFILE PLOT 
PROGRAM 



IS ALIGNMENT 
WORTH CONSIDERING? 



c 



SHOULD MODIFICATION 
BE MADE? 



ROADWAY DESIGN 
PREPARATION 



c 



SELECTION OF VERTICAL 
ALIGNMENT AND TEMPLATE 



J. 



ROAOWAY DESIGN 
TEMPLATE 



ROADWAY DESIGN 
VOLUMES 



SLOPE STAKE AND 
MASS HAUL PLOTS 



CAN IMPROVEMENT BE MADE 
BY VERTICAL MODIFICATION ? 



YES f CAN IMPROVEMENT BE MADE 
— V BY HORIZONTAL MODIFICATION 



D 



(IS MA 
« 



MATERIAL CLASSIFICATION 
PORTANT TO COST 



' J 1 



MATERIALS 
CLASSIFICATION 



Page 7 



TERRAIN PREPARATION/EDIT 



Purpose 



In the digitization of the band of interest, a large amount of terrain 
data ts frequently recorded. The Terrain Preparation/Edit Program examines 
the logical reasonableness of the terrain described by the recorded data 
and prints a warning message when a doubtful situation Is found to exist. 
The messages from the program will not merely point out those situations 
where a mistake was surely committed, but all those si tuat ions, as 
uncommon in occurrence as to be worthy of checking against the original 
source of terrain data. 



Description 



At a cross section line, any terrain point is given two coordinates: 
an offset distance from the baseline (Y-coordinate) , and an elevation 
(Z-coordinate) . The criteria applied to determine the reasonableness 
of the terrain data are as follows: 



a. The maximum allowable difference in the elevations of the 
first points of consecutive sections is five times the 
contour interval . Failure to meet this test may mean too 
large a spacing between cross sections, or a mistake made 
either in recording the elevation of one of the two compared 
points, or of all points at one of the two sections 

(see test f). 

b. The horizontal distance between consecutive points on the 
same cross section must not exceed a specified allowable 
maximum . Failure to meet this test may mean involuntary 
skipping of too many contour tines. 

c. At any cross section, the Y-coord inate of the terrain points 
must always be increasing and can never be zero . If the 
terrain data has been recorded in such a way that it 

fails to meet this test, it will not be acceptable to the 
programs in the System. It should be taken from left to 
right, from the largest negative to the largest positive. 

-> 

LI 
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d. The slope of the ground surface must no t exceed a specified 
maximum . This check will supplement the horizontal distance 
difference and vertical distance difference tests and will 
warn the engineer in situations which may not have been 
detected by such tests. 

e. Hloh or low points shoul d be defined bv an interpolated offset 
and elevation . This check will essentially detect situations 
where the high or low points were missed and will help to 
eliminate many situations in which a recording mistake was 
made. 

f. The difference in elevation betw een two consecutive points 
on the same cross section mu st not exceed five contour 
intervals . This check complements test (a) and will tell 
the engineer whether the mistake in elevation was made for 
a single point r or for the entire section. 



Program Operation 



A specifications card containing the contour interval, the maximum 
allowable slope, and the maximum allowable horizontal distance between 
consecutive points is read in. These can be determined by the engineer 
for particular map and terrain conditions and will constitute the 
basis for the quantitative tests to be performed. A terrain cross section 
is now read in and checked according to the stated criteria. 



The tests are performed sequentially; when one Of them is not met, 
a warning message is printed out, indicating the doubtful situation 
just found, before performing the next test. When all the tests have been 
completed at a section, a new terrain cross section Is read in and 
analyzed. The engineer should after each run cheek the warning messages 
against the source map and then test the corrected terrain data until 
all warning messages received correspond to acceptable terrain conditions. 
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TERRAIN PREPARATION/EDIT 
OPERATING INSTRUCTIONS 

Console Switches 

1. PARITY - off, 1/0 CHECK - off, FLOW - program 

2. Sense Switches 1 not used 

2 not used 

3 not used 
k not used 

Typewriter 

Not used 
Loading Program 

1. Clear memory 3100O03OO0O2 

2. INSTANT STOP, RESET, LOAD 
Order of Input 

1 . Object Program Deck 

2. Specification Card 
CI, SMAX, YMAX 

CI = Contour Interval SMAX - Maximum Slope % YMAX = Maximum Distance 

Between Points 

3. Terrain Data Deck 

I, IBL, BLSTA, IY1, IZl, IY2, IZ2, IY3, IZ3, Wk, \Zk, «Y5, IZ5 
Special Instructions 
None 

Restart Procedure 

1. INSTANT STOP, RESET, INSERT 4908300 

2. RELEASE, START 
Sorting and Listing Instructions 

List with 80 column straight list. The output messages are 
self-explanatory. 
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: DTM DESIGN SYSTEM ** TERRAIN PREPARATION / EDIT ** 20K 

: C.L.MILLER + E.E. NEWMAN * * NOV. 27» 1961 

I CIVIL ENGINEERING SYSTEMS LABORATORY 

DIMENSION Y(50)»2(50)»A(5)*£(5}tM5)»L(5J 00001 
I INITIALIZATION ROUTINE 
: READ SPECIFICATION CARD 

1 FORMAT(F10.2»F10.2tFl0.2) OOOaZ 

2 READ 1 *CI t SMAX • YMAX ' 00003 

4 FORMAT (4bH DTM DESIGN SYSTfcM ** TfcRRAlN PREPARATION / EDI T J 000O4 

PUNCH 4 00005 
: Cl=CONTOUR INTERVALt SMAX»MAX. SLOPE IN PERCENT 
I YMAX*MAX DISTANCE BETWEEN POINTS 

ZMAX«5.«CI 00006 

PUNCH 1 • C 1 1 SMAX » YMAX 00007 
I READ ROUTINE 
: FORMAT FOR DATA CARDS 

9 FORMAT C 1 3, 1 3. F 10. 2 ♦ 16. 15. 16. 1 5. 16.15.16. 1 5»I6» 1 5) 00008 
I READ VERY FIRST CARD 

200 READ 9tI*J»X»K(l) *L(1) »K(2)»L(2)»K(3)*L(3)»K(4)tL(4)»IC(5)*L(5) 00009 

DO 60 I»l*5 00010 

A(i>»icm 00011 

B<1>»LCIJ 00012 

60 CONTINUE 00013 

201 XB—99999. 00014 
Z0NE«B<11 00015 

202 N«0 00016 

203 1*1 00017 

204 ANS1*ABSF< A< I ) >+ABSF(B< I>) 00016 
IF< ANSI >206. 206. 205 00019 

: N IS NUMBER OF POINTS ON SECTION 

205 N«N*1 0002O 
Y(N)«AII1 00021 
ZtN>«B(I> 00022 
I»I>1 00023 
IFt 1-5) 204.204*206 00024 

206 READ 9»I.M.XT»Km»L<l).M2».Lt2)»K<3)»H3>*Kt4)»L<4> »M5>.L<5) 00025 
DO 61 I«lt5 00026 
A(I)-KU) 00027 
8(I)*L1I) 00028 

61 CONTINUE 00029 
IFtX-XT)207»203.207 00030 

207 IF<X-XB>206. 208.209 00031 

208 PUNCH 20.J.X 00032 
20 FORMAT ( I3.F10.2.18H X NOT INCREASING! 00033 

Z CHECKING ROUTINE 

209 2B««Z<2»-Z(in 00034 
ZTEST«(ZU)-ZONE> 00035 
ANS2- ABSF ( Z T EST I -5 • *C I 000 36 

IF<ANS2>220*220»590 00037 

590 PUNCH 29.J»X»Y(1).ZTEST 00038 

29 FORMAT ( 1 3 10*2 »F10*2 *23H FIRST POINTS DIFFER BY Fl0.2t 5H FEET ) 00039 

220 NC«N-1 00040 

210 DO 999 1*1 tNC 00041 
YA-YU+D-YII) 00042 
ZA»Z(I+1»-ZCI> 00043 
ANS3-ABSF ( YA)— YMAX 00044 
IF«ANS3)101.101.501 00045 

501 PUNCH lO.J.X.Y(I) *YA 00046 

10 FORMATU3.F10.2.F10.2.32H DELTA Y EXCEEDS MAX* DELTA Y IS F10#2> 00047 
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GO TO 106 00048 

101 IF* YA)503t502.105 00049 

502 PUNCH ll»J»X»YMt 00050 

11 FORMAT* 13, F16.2.F10.2,16H DELTA Y 1$ ZERO) 00051 
GO TO 106 00052 

503 PUNCH 12»J»XtY( I ) »YA 00053 

12 FORMAT* 13. F10.2»F10»2.27H POINTS OVERLAP • DELTA Y IS F10.2) 00054 
GO TO 106 00055 

105 ANS4-ABSF* *ZA»100.)/YA) 00056 
I F ( ANS4-SMAX ) 1 06 • 106 1 504 00057 

504 PUNCH 13»JtX»Y< I ) tYA.ZA 00058 

13 FORMAT ( 13»F10*2»F10»2*19H SLOPE EXCEEDS MAX.F10.2.F10.2 ) 00059 

106 ANS5«ABSF*ZA)-*01 00060 
IF*ANS5)505t505»107 00061 

505 PUNCH 14*J»X»YU) 00062 

14 FORMAT* 13. F10.2»F10.2t 16H DELTA Z IS ZERO) 00063 
GO TO 114 00064 

107 ANS6*ABSF(ZA)-ZMAX 00065 
IF(ANS6)108»109»506 00066 

506 PUNCH 15.J»XfY*I)»ZA 00067 

15 FORMAT* I 3»F10*2»F10*2*34H DELTA Z EXCEEDS SXCIt DELTA Z IS F10.2) 00068 
GO TO 114 00069 

108 ANS7»ABSF(ZA)-Ct 00070 
IF* ANS7)109. 109.509 00071 

509 PUNCH 21.J.X»Y*I).ZA 00072 

21 FORMAT* I3*F10*2*F10«2t30H SKIPPED CONTOURS* DELTA I IS F10.2) 00073 

GO TO 114 00074 

109 IF(ZB»ZA)110»114tll4 00075 

110 ANS8«ABSF(ZB)-CI 00076 

IF*ANS8)111.112»H2 - 00077 

111 ANS9- ABSF*ZA)-CI 00078 
IF*ANS9>114.114.112 00079 

112 IF*ZB)507. 114.508 * 00080 

507 PUNCH 16.J.X.YU) 00081 

16 FORMAT* I3,F10. 2, F10.2.30H MISSED ^OW POINT OR BAD DATA) 00082 
550 PUNCH 17»Y<I-l>*Z<l-l>»YU>»Z<i)tY(l+l)tZ(I+l) 00083 

17 FORMAT* FlO* 2 *F10* 2 »F10t2*F 10*2 *F 10*2 »F10*2 ) 00084 
GO TO 114 00085 

508 PUNCH 18.J.X.YU) 00086 

18 FORMAT* I3.F10.2.F10.2.31H MISSED HIGH POINT OR BAD DATA) 00087 
GO. TO 550 00088 

114 ZB»2A * 00089 

999 CONTINUE 00090 

XB*X 00091 

X«XT 00092 

ZONE»Z*l) 00093 

IF(M-J) 666 • 202 »666 00094 

666 PUNCH 19.M.XT 00095 

19 FORMAT* I3.F10.2.15H NEW JOB NUMBER) 00096 
J«M 00097 
GO TO 202 00098 
END 00099 



|t 
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ALIGNMENT DESIGN/GEOMETRY 

Purpose 

The major purpose of this program is the computation of the 
alignment geometry of a series of highway alignments defined by one 
or more baselines and center! ines. A table containing the geometry is 
then passed on to an offset computation program. It computes the 
centerline station number and distance between the baseline and 
the centerline at each cross section. This output is used by the 
rest of the system. The geometry of - single alignments can also be 
computed. 

Description 

Two types of lines are designated by the engineer; baselines and 
centerlines. Each line is defined by giving the X and Y coordinates 
of each P.I. and one curve defining parameter (radius, tangent, degree 
of curvature, or external distance). The first line so defined is 
automatically the baseline; the second is the centerline. 

Each line can be made up of one to several shorter segments each 
identified by a unique line number and defined by P.l.'s as described 
above. The end of each segment is indicated by an 888888.88 in the 
radius field. The end of the baseline is indicated by a 999999*99 in 
the radius field. 

Each P.I. is given a k digit point number. The first 2 digits 
contain the line number on which the point appears. The last two digits 
are the identification number of the point. No particular order need 
be observed with regard to numbering the points, except that the line 
numbers must match for all points on the same line. 



Stationing is initiated by placing the origin station number in 
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the radius field. With the exception of the first line an origin 
station number of exactly zero causes the program to use the terminus 
station of the previous line. Geometry can be computed on lines 
containing station equations by giving the line on each side of a 
station equation a different line number. The point of the equation 
is both the terminus of one line and the origin of the other. 

Program^ Operation 

The program reads in the point number, the X coordinate, and the 
Y coordinate for each point and either the radius, degree of curvature, 
tangent, or external as a non-zero number to define each curve. (If 
all of the curve parameters are zero, the curve is treated as a zero- 
radius curve.) 

As soon as the program senses a 999999-99 in the radius field of 
one of the input cards, the program stops reading and begins computation 
of the baseline alignment. The P.C, P. I., and P.T. station numbers 
for each curve are computed and output along with the radius, degree 
of curvature, tangent, external, X and Y coordinates and point number. 

Control is then passed back to the input routine which initiates 
computations for the centerline alignment. If no center line computation 
is entered by the engineer, none is obtained. Computations for the 
centerline are performed in the same manner as those of the baseline. 
Output terminates the program. 



MACRO FLOW DIAGRAM 
ALIGNMENT DESIGN / GEOMETRY 



BEAD 

iT.iotn.xui.Yin.fun.Dm.Ttn.Ein 

IS R<I)« 999999 99' 
^ YES 



SAVE THE NO I* 
READ IN 



I 



SET ORIGIN STA 
EQUAL TO PC, P.I. a P.T 



r 






COMPUTE AZIMUTH 


l" TIME 




OF TANGENT 





COMPUTE ANGLE 
OF INTERSECTION 



FIND WHICH CURVE DEFINING 
PARAMETER IS GtVEN 



DEGREE 


OF 


CURVATURE 


GIVEN 



RADIUS 
GIVEN 



TANGENT 
GIVEN 



EXTERNAL 

GIVEN 



COMPUTE 
RADIUS 



COMPUTE 
RADIUS 



COMPUTE 
RADIUS 



COMPUTE DEGREE OF 
CURVATURE, TANGENT, 
PC, CURVE LENGTH, 
P.T. .EXTERNAL 



* 

PUNCH, IOU). X«),Y<I),R<n.O(I).T<n , £ (I) 

puNCH,iD(n,PC<n.Pim.pT<n. azout. angio.aleng 

i ; 

COMPUTE NEW P I AND NEW 
AZ. INCREMENT I 





NO 






I YES 



SET INTERMEDIATE 
TERMINUS 



YES 


IS R - 999999.99? 


NO 
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ALIGNMENT DESIGN/GEOMETRY 
OPERATING INSTRUCTIONS 



Console Switches 

1. PARITY - off, 1/0 CHECK - off, 0FL0W - program 

2. Sense Switches 1 not used 

2 not used 

3 not used 
k not used 

Tvoewr 1 ter 

Not used 
Loading Program 

1. Clear memory 310000300002 

2. INSTANT STOP, RESET, LOAD 
Order of Input 

1 . Program Deck 

2. Up to 20 baseline and center line input cards, with each line 
terminated by 999999-99 in the radius field. 

Inout List 

3. IP, X, Y, RAD, DEG, TAN, EXT 

Special Instructions 

The geometry table computed by this program is retained in 
memory for use by the Alignment Design/Offset program. There- 
fore, a restart procedure should not be used unless a mistake 
has been made and It is necessary to start over or unless the 
offsets program is not to be run. 

Restart Procedure 

1. INSTANT STOP, RESET, INSERT 1*907500 

2. RELEASE, START 
Sorting and Listin g Instructions 

No sorting is necessary. List with an 80 column 407 panel. 

Output List 

3. IP, X, Y, RAD, DEG, TAN, EXT 

3, IP, PC, PI, PT, AZ, ANGI, CLENG 
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DTM DESIGN SYSTEM ** ALIGNMENT DESIGN 


/ GEOMETRY ** 20 K 






P.O. ROBERTS / AUG 18tl961 








CIVIL ENGINEERING SYSTEMS LABORATORY 








DIMENSION ID < 21) »Y( 20 ) »X( 20 ) tR< 20) »PC( 20) »PI ( 20) *PT ( 20) »OFFD( 3 ) 


00001 




DIMENSION 0(20) »Tt20) tEt 20) 




00062 




INITIALIZE 






100 


1=6 




00003 




READ ROUTINE 








DO 262 N«li2 




00QX>4 




ID(21l*j 




00005 




DO 120 J=l»20 




00006 




I* 1*1 




00007 




READ. IT .lDt I).X(I)»Y(I>»R(I)»D(I)»T(I> 


• E { I ) 


00008 




IF(R( I ) -999999 •98) 120tl40«i40 




nnnno 

OUOOt 


120 


CONTINUE 




a aa l n 


140 


IM-J+1 




000 1 1 


200 


IS^1*1 




000 12 




ISW3=1 




000 1 3 




RI=R( I ) 




000 14 




PI(I)»RI 




UUU 1 9 




PC* I ) SB RI 




000 16 




PT< I )-RI 




aaa i 7 




C*0»0 




000 18 




TU )»0» 




UUU It 


201 


ISW4-1 








GO TO 10 




0002 1 


206 


IFt I SW1 -2) 248 • 2 10 • 2 10 




AAA 9 9 


248 


ISWl=2 




\f\J\JC3 




ANGIO«0.0 




0OQ3^»» 




ALENG*0*0 




AAA 9 C, 




GO TO est 




AAA 9*. 


210 


ANGI* AZ-AZO 




AAA 97 


212 


IF( ANGI -3.1415927 ) 211t2U»214 




00028 


211 


ANGI* ANGI +6. 2831854 




AA A 9Q 




GO TO 212 




00030 


214 


ANGI*ANGI-6.2«31854 








IF(ANGI )208»209»209 




000 32 


208 


DS*-1 .0000000 




00033 




GO TO 205 




00034 


209 


DS = 1*0000000 




00035 


205 


ANG*ANGI/2« 




.00036 




FIND WHICH IS GIVEN 








IF(R(1)) 22 1*216 #221 




AAA 47 


216 






00038 


217 


IF(T(I) >22W218.220 




AAA 1 Q 

00U37 


218 


IF(E( I ) 1221*222*223 




00040 




IF D IS GIVEN 






9 1 Q 

civ 


R(II«5729.5780/D( I) 




00041 




GO TO 221 




00042 




IF T IS GIVEN 






220 


R( I)»T< I)*C0S(ANG)/SIN(ANG)*DS 




00043 




GO TO 221 




00044 




IF E IS GIVEN 




00045 


223 


R(I)«E( I)/(1./C0S(ANG>-1.) 






GO TO 221 




00046 




IF NONE ARE GIVEN 






222 


Dt I )-0.0 




00047 


GO TO 215 




00O48 


221 


DH)*5729.5780/R( I) 




00049 
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215 T( I >«R( I )»CSIN< ANGI/COSC ANG) )*DS 00050 

pc*n»pi(i)-T(i) 

ALENG«ANGI*R( I »*DS 00052 

PT< 1 )«PC< I KALENG 00053 

em«u./cos{ANG>-i»i»Rm 00054 

ANGIO»ANGI*57.295780 00055 

232 AZOUT« AZ*57*295780 00056 

PUNCHtlTtlOCDtXIIUYIIURC I > t DU> *T (1) »E< 1 ) 00057 

PUNCH»IT»ID< I ) tPC< I) tPI C I ) *PT« I ) t AZOU T t ANG 1 • At ENG 00058 

PI < I«-l»«PT< I >-TU )*C 00059 

AZO-AZ 00060 

00061 

240 IF(R( I > -888888.87) 242*244*244 00062 

242 CONTINUE 00063 

GO TO 201 00064 

244 pcm*pim 00065 

PT(I)-PHI) 00066 

PUNCH* IT* IDi 1 1 »XI I) »YI II *R< I) 00067 

PUNCH*IT*IDm*PC(II*PI< I>»PTtI) 00068 

260 IFCRt I >-999999«98>250*262*262 00069 

262 CONTINUE 00070 

GO TO 100 00° 72 



250 I»I*1 



14 A2-0.0 

GO TO 18 



00073 



IF(RUU200*252.200 00074 

252 RCII*PI(I-1> OOOJf 

GO TO 200 00076 

C AZIMUTH DISTANCE SUBROUTINE 

10 A«X(I+1I-XU) 00077 

B«YU*ii-Ycn 000 li 

11 C«SOR(A*»2+B«»2) 00079 
IFtA)i5*12*i3 00°;° 

12 IFIBI13. 1**14 00081 

13 AZ«3. 1415927 00082 
GO TO 18 00083 



00084 
00085 



15 ANG-ATNIB/AI 00086 

16 IF<A>19»12*17 00087 

17 AZ«1.5707964-ANG 00088 
GO TO 18 00089 

19 A2-4.7123890-ANG 00090 

18 GO TO (206*100) *1SW4 zZzlt 
END 00092 
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ALIGNMENT DESIGN/OFFSETS 

Pyrpose 

The purpose of this program is the computation of the offset distance 
from a baseline to a centerline and the determination of the center- 
fine station number of the intersection as wei i as the amount of skew 
in the cross section. Further, this program uses the computed offset 
distance and the terrain cross section to determine the eievation of the 
ground beneath the centerline for a left and right offset point. This 
information is later used by the plot profile program to plot a ground profile 

Description 

Computations can be performed with the centerline on either side 
of the baseline. An offset to the left is a negative offset; to the 
right, positive. Similarly, terrain points are recorded with offsets and 
elevations, 5 points to a card, from left to right using the sign 
convention above. Terrain multiplication factors are employed to control 
scaling of the terrain offsets and elevations. Widths up to 9999 feet 
to either side of the baseline may be used with a multiplication factor 
of 1.0. 

Terrain cross sections contain both a baseline number and a base- 
line station. The baseline number is sequentially compared with the point 
numbers In the geometry table until the point numbers on both sides 
of the terrain cross section match. The baseline numbers given in the 
geometry table must therefore match those on the terrain cards. 

Program Operation 

The program uses the tables of IP, X, Y, R, P.C, P. 1 . , P.T., 
which were left in the computer memory by the Alignment Design/Geometry 
program. The geometry computation must, therefore, immediately precede the 

y / 
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offset run. 

The program reads in the first terrain card in order to get the 
baseline number and baseline station. The geometry table is searched to 
find where on the baseline this terrain section is. Once the point in 
front and behind are located, the logic of the program determines whether 
the cross section is on a tangent or a curve. Then, the coordinates on 
the baseline and a local normal are established. Control is then passed 
to the next routine. 

The normal from the baseline is intersected with a tangent formed 
by two points on the centerline. Using the geometry table again, the 
station number of the intersection is compared with the P.C. and P.T. to 
determine whether the intersection is on tangent or curve or whether it 
falls beyond both. If the intersection is on curve, the offset and 
station are corrected before control is passed to the terrain interpolation 
routine. 

Using the offset, the terrain points from the first card are inter- 
polated to find the elevation. If the offset cannot be found on the first 
card, additional cards are read until the correct distance is found, or 
until the baseline changes. This procedure is repeated for each cross 
section on the baseline. Output consists of baseline number, baseline 
station, centerline station, offset, left offset elevation, centerline 
elevation, right offset elevation, and cosine of the skew angle. 



MACRO FLOW DIAGRAM 
ALIGNMENT DESIGN / OFFSETS 







READ TERRAIN CARD 
IT.IBLS.BLS, IX (I) ■ ■ IX (5),JX (5) 



00 

BL ANO STA 
MATCH ? 



SET 
BL AND STA 



UNLOAD TERRAIN 
CARD 



DO 

8L AND STA 
MATCH ? 




INCREMENT 
BL STORAGE 



CURVE OR 
TANGENT CASE 



1 C 



CURVE CASE 
COMPUTE 
STA, xaY COORD 
AND A2 



TANGENT CASE 
COMPUTE 

sta, xar COORD 

AND AZ 



INCREMENT 
CL STORAGE 



COMPUTE 
INTERSECTION STA 
OF OFFSET LINE 
WITH TANGENT 
OPPOSITE 



IS INTERSECTION 
AHEAD OF PC 



COMPUTE 
INTERSECTION 
STA AND OFFSET 
FOR CURVE 
CASE 


YES 


IS INTERSECTION 
ON CURVE 




J NO 




COMPUTE SKEW 
ANGLE 







INTERPOLATE ONE 
ELEV FROM 
TERRAIN CARO 



IS LAST POINT FOUND 
ON THIS CARD 7 



PUNCH 

IT, I8L , STA , CLS , OFF, £LV (I), ELV(2), ELV (3) , ANG 



SET SW4 - 3 
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ALIGNMENT DESIGN/OFFSETS 
OPERATING INSTRUCTIONS 

Console Switches 

1. PARITY - off, 1/0 CHECK - off, 0FL0W - program 

2. Sense Switches 1 not used 

2 not used 

3 not used 
k not used 

Typewr i ter 

Not used 
Loading Program 

1 . DO NOT CLEAR memory 

2. Must be loaded after Alignment Design/Geometry 

3. RESET, LOAD 
Order of Input 

1 . Program deck 

2. Multiplication factor card 
FAC1, FAC2 

3. Offset Card 
OFFL, OFFCL, OFFR 

k. Terrain Deck 

1, 1BL, BLSTA, IY1, IZ1, IY2, IZ2, IY3, IZ3, lYfc, IZi+, IY5, 

5. Final terrain section (one beyond end) 

Special Instructions 

The geometry table used by this program must be left in memory 
by the Alignment Design/Geometry program. Therefore, the memory 
cannot be cleared between runs, nor can other programs be run 
between them. 

Restart Procedure 

1. INSTANT STOP, RESET, INSERT if 9 075 00 

2. RELEASE START 
Sorting and Listing Instructions 

No sorting is necessary. List with an 80 column k07 panel. 
Output List 

5, IBL, BLSTA, CLSTA, OFF, ELEVL, ELEVC, ELEVR, SKEW 

%1 
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C DTM DESIGN SYSTEM ** ALIGNMENT DESIGN / OFFSETS 20 K 

C P.O. ROBERTS / OCT 2tl961 

C REVISION 1 POR 22 MARCH 62 

C CIVIL ENGINEERING SYSTEMS LABORATORY 

DIMENSION ID<21> *Y<20> »X(20> *R < 20 > *PC ( 20 ) .PI ( 20 ) »PT ( 20 ) »OFFD ( 3 > 

DIMENSION JD(5> *JE<5)*D( 6).E( 6>*ELV(3) 
C READ TERRAIN MULTIPLICATION FACTORS 

READ.FACl»FAC2*OFFD< 1> *OFFD<2> »OFFD< 3) 

K«!D(21t+l 

J=l 

ISW4«1 

GO TO 410 
C REENTRY POINT 

442 ISW4«-1 

GO TO 410 
401 D(lt«DC6) 

E(1)*E(6) 

ISW4«0 

C READ ONE TERRAIN CARD 

C FIVE PER CARD TERRAIN/ALL CARDS FULL 

C LAST CARD MUST CONTAIN ZEROS IN UNUSED WORDS 

N=2 

READ* I T • IBLS*BLS 
UNLOAD CARD 
DO 455 M»l»5 
READ* JD( M) » JE(M) 
A*JD(M) 
D(N>«A*FAC1 
A«JE<M> 
E(N)«A»FAC2 
N-N+l 

ARE WE TO A NEW CROSS SECTION 
IF( IBL-IBLS)460*431.460 
I F t STA-BLS » 460 *450 *460 
IF< ISW4>410*700*470 
IF( ISW4>470.705.470 
IBL-IBLS 
STA»BLS 
DU>«D<2) 
£tl)«E<2) 

COMPUTE COORDINATES ON BASELINE 
I»J 

PCI«PC( I ) 
AZO-AZB 
ISW3«1 
ISW2-5 

CHECK FOR MATCHING BASELINES 

IFUBL«2-I ID( I-1)/100+ID< I > /100 > > 510 »515 »510 
IFtSTA-PTU-l) » 442*520*520 
IF(RU>-888888. 88)525*530*530 
GO TO GEOM 1 
GEOMETRY SUBROUTINE 
IBLMBLS 
J-J+l 
I=J-1 
ISW2»1 

GO TO AZ DIS 1 
AZIMUTH DISTANCE SUBROUTINE 
10 A«X(1 + 1)-XUI 



410 



454 



455 

C 

430 
431 
450 
460 
470 



500 



515 
520 

C 
C 

509 
510 



00001 
00002 

00003 
00004 
00005 
00006 
00007 

00008 
00009 
00010 
00011 
00012 



00013 
00014 

00015 
00016 
00017 
00018 
00019 
00020 
00021 

00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 

00030 
00031 
00032 
00033 
00034 

00035 
00036 
00037 



00038 
00039 
00040 
00041 



00042 




o 
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B=Y( I+l )-Y( I ) 
11 C*SQR<A#»2+B**2> 
AZ«0.0 

IF(C-. 00001)18.18.12 
12 ANGM.O 

IF(B>3.4.4 

3 AN6*-1«0 

4 B*ABSF<A/C> 
P«SQR(ABSF< 1.0-B)/2.) 
AZ«SINF<P> 

DO 14 L-1.50 
AN6I«P-SINF(AZ) 
IFIANGI-.1E-05) 15.15.14 
14 AZ»AZ+AN6I 
15 AZ*tANG«AZ>*2* 
IF<A)17. 16*16 

16 AZ*1.5707964-AZ 
60 TO 18 

17 AZ=4.7123890+AZ 

18 GO TO < 207.605.660.685.210) .ISW2 
207 A2B=AZ 

I-I+l 
ISW1*2 
GO TO 500 

210 ANGI« AZ-AZO 

C ADJUST ANGLES TO LESS THAN 180 DEGREES 

212 IFCANGI-3. 1415927) 211.211.214 

211 ANG1*ANG1+6,2831854 
GO TO 212 

214 ANGI»ANGI-6. 2831854 

IF( I SW3-2) 204* 204*690 
C COMPUTE SIGN OF DEFLECTION ANGLE 

204 DS»1.0 

IFtANGI ) 208*205*205 
208 DS»-1*0 

205 ANG«ANGI/2* 

C COMPUTE CURVE TANGENT 

RI-RU) 

TANG*R 1 • I S I N I ANG ) /COS < AN6 ) > #DS 

AZ-AZO+3. 1415927 
C FIND COORDINATES OF PC 

D IS* TANG 

ISW5-1 

XI«X( I ) 

Yl«YM> 
C GO TO COORD 1 

C COMPUTE COORDINATES SUBROUTINE 

20 X1»XI+D!S»SIN<A2) 
Yl«Yl*DIS*COS<AZ) 
GO TO »216»217*54O.680)*ISW5 

216 PCX-XI 
PCY«YI 

C FIND COORDINATES OF CIRCLE CENTER 

AZ* AZO+DS* 1 . 5707964 

DIS-RI 

ISW5*2 

GO TO 20 
C GO TO COORD 2 

217 XO-Xl 



00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
0005 3 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 

00068 
00069 
00070 
00071 
00072 

00073 
00074 
00075 
00076 

00077 
00078 
00079 

00080 
00081 
00082 
06683 



00084 
00085 
66686 
06087 
60088 

00089 
00090 
00091 
00092 

00093 



525 



530 



545 



550 



540 



600 
601 



605 



638 



632 



636 
610 



640 
641 
642 
645 



625 



YO-YI 
PCAZ-AZ 

IF( ISW3-2>550»655.690 
IF (STA-PCI ) 530.530*545 
TANGENT CASE 
DIS*PI< IJ-STA 
AZMIT-AZO+l. 5707964 
ISW5«3 

AZ-AZ0+3.1415927 

XI-XU) 

YI*Y( I > 

GO TO 20 

GO TO COORD 3 

IF(STA-PT ( I ) ) 10.510*5X0 

CURVE CASE 

ANG» < STA-PCI )/R I 

XI*XO 

YI»Y0 

0IS*DS*(-RI ) 

AZMIT*AZO+1.5707964+DS*ANG 

AZ*AZMIT 

ISW5*3 

GO TO 20 

STORE BASELINE COORDINATES 

C0RDX«XI 

CORDY-YI 

COMPUTE INTERSECTION ON CENTERLINE 
I«K 

ISW2*2 

GO TO 10 

GO TO AZ DIS 2 

1-1*1 

AZ1*AZMIT 

AZ2«AZ+3. 1415927 

A*X< I )-CORDX 

B*Y<I)-C0RDY 

C*SINIAZ1-AZ2) 

IF (C+. OOOOl > 632*638*638 

0FF*888888.88 

DIS*-B88888.88 

GO TO 610 

COMPUTE OFFSET FROM BL TO CL AND DISTANCE FROM PI 

DO 636 L*1.2 

DIS*0FF 

OFF* ( A»COS ( AZ 1 ) -B*SI N < AZ 1 > > /C 

A*1*AZ2 

ANG-A2 

CLS*PI(I>-OIS 

IS INTERSECTION BEYOND tHE PC 

IFICLS-PC* I ) J625.625.640 

IS ALIGNMENT FINISHED 

IF(R( n-888888.68>642*642*442 

1 = 1 + 1 

I F ( I D ( I )/100-IDt I + D/lOO 1641. 645. 641 

AZ0*AZ 

K*I-1 

GO TO 601 

IS ALIGNMENT BEYOND THE PREVIOUS PT 
IF(CLS-PT( I-l) )628.626.626 
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00094 
00095 
00096 
00097 

00098 
00099 
00100 
00101 
00102 
00103 
00104 

00105 

00106 
00107 
00106 
00109 
00110 
00111 
00112 
00113 

00114 
00115 

00116 
00117 
00118 

00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 

00129 
00130 
00131 
00132 
00133 
00134 

00135 

00136 
00137 
00138 
00139 
00140 
00141 

00142 
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626 IF< I-K-1)698.698»6V7 00143 

697 K=K+1 00 U4 
GO TO 698 00145 

628 IFU-K-11650, 442.650 00.146 

C INTERSECTION ON CURVE 

650 1*1-1 0014 I 

ISW3-2 00148 

GO TO 210 00149 

C GO TO LAST PART OF GEOM 2 

655 A=XO-CORDX 00150 

B=YO-COROY 00151 

ISW2*3 00152 

GO TO 11 00153 

C GO TO LAST PART OF A2 01 S 3 

C COMPUTE CURVE OFFSET 

660 ANG=AZ-A2MIT 00154 

A=C*COS(ANG) 00155 

B=C»SIN(ANG) 00156 

OFF*A-DS*SQR<RI*»2-8»*2) 00157 

C GET COORDINATES OF INTERSECTION POINT 

Xl*CORDX 00158 

YI«CORDY 00159 

AZ*A2MiT 00 ^° 

0IS*OFF 00161 

ISW5*4 : OOlbZ 

GO tO 20 00163 

C GO TO COORD 4 

C GET AZIMUTH* OF RADIUS 

680 A=XO-XI 00164 

B=YO-YI 00165 

ISW2*4 00166 

GO TO 11 ° 01 * 7 

C GO TO AZ DIS 4 

C COMPUTE ANGLE SUBTENDED 

685 ANGI*AZ-PCA* 00168 

GO TO 212 00170 
C GO TO GEOM 3 

C COMPUTE CLS AND LOCAL AZIMUTH FOR CURVE INTERSECTION 

690 CLS- PC t I ) +ANG I »R I *DS n 00171 

ANG=AZO+ANGI 00172 

698 ANG *SIN( AZMIT-ANG) 00173 
C INTERPOLATE GROUND ELEVATIONS 

DO 704 L=l»3 00174 

P=OFF+(OFFD(LI/ANG) 00175 

700 DO 701 1=2.6 00176 
I F t E ( I ) ) 702 1 705 » 702 00177 

702 I F ( D( I ) -P ) 701 .703 .703 0017$ 

701 CONTINUE 00 }l 9 
GO TO 401 00180 

C INTERPOLATE ELEVATION OF ONE POINT 

703 1*1-1 00181 

704 ELV(L)*E( I >+<P-D< I ) ) / ( D( I + 1 ) -D < I ) )* < E ( I +1 ) -E t I ) ) 00182 

705 PUNCH, 5.IBL.STA.CLS.OFF.ELV(l).ELV(2).ELV<3).ANG 0018? 
GO TO 442 00184 
END 00185 
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ROADWAY DES I GN/ PREPARATION 



Purpose 

the purpose of this program is to produce a reduced terrain deck 
containing information which is relevant only to the particular align- 
ment being run, rather than to the whole band of interest. This narrowed 
band of interest is defined by offset widths to the right and to the 
left^ of the center line. All terrain information within this specified 
band is punched into a reduced terrain deck and also automatically 
collated with the offsets. 

Descr ipt ion 

The offset- distances that define the narrow band of interest 
generally depend upon the configuration of the terrain and should be 
determined by the engineer for each specific alignment. Because of 
memory-size restrictions, the other programs in the Roadway Design Phase 
cannot accept more than twenty-four terrain points at each cross section. 
The Roadway Design/Preparation Program uses a sense switch to cause a 
pause whenever more than twenty-four terrain points are found within the 
narrowed band of interest. Also, it is possible to control the input so 
that the maximum available storage will not be exceeded. 

Program Operation 

The program init ial izes control constants and immediately reads in 
a card in which the offsets from the centerline to the limits of the 
new band of interest (WIDL, WIDR) are specified. The remainder of the 
input consists of the terrain deck and of offset cards produced by the 
Alignment Design/Offset Program. This input can be collated or not. The 
only restriction is that the offsets card corresponding to any cross 
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section must be read in before the last terrain card for the same cross 
sect ion. 

The program reads in a card from the input deck and determines whether 
it is an offset card or a terrain card. If it is an offset card, it is 
immediately stored, and the program decides whether storage space is 
still available to read in an additional offset card. When 121 cards have 
been read in, it will interrogate sense switch 3» If it is on, the program 
will pause, allowing the terrain information to be input; if it is off, the 
program will read in as many offset cards as there are in the read hopper. 

When the first terrain card is read in, it will be immediately stored; 
any other terrain card will be assigned to temporary storage and then 
examined to see if it corresponds to the same cross section as the one 
read before it; if it corresponds to a new section, the previous section is 
processed: the limits of the narrowed band of interest are computed, and 
those points lying within it are punched. If at any section more than 
twenty- four points are found within the specified band, the program will 
interrogate sense switch 2. if it is on, the computer will pause, allowing 
the operator to determine the section at which this condition occurs, if 
it is off, normal processing will continue. An offset card is also produced 
which contains only that information which is going to be used by the 
Roadway Design programs. Only those sections for which both terrain and 
offsets were input are processed. Any section for which only offset or 
only terrain were input is neglected. A maximum of sixty-eight terrain 
points can be read in at each cross section. The last section is not 
normally processed; therefore, terrain information should be given up to 
one cross section beyond the last one desired. 
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READ WIDTH OF NEW 
SAND OF INTEREST 



ASSIGN TEMPORARY STORAGE 
TO TERRAIN ON CARD 



TERRAtN >-*->v 

-7<^> 



STORE OFFSETS CHECKING 
CORRECT SEQUENCE 



IS THIS THE FIRST 
TERRAIN CARD » 



IS THE CROSS SECTfON 
ON A NEW BASE LINE ? 



IS THIS A NEW 
CROSS SECTION* 



YES 



DOES THE LAST TERRAIN 
CROSS SECTION CORRESPOND 
TO NEXT OFFSET CROSS 
SECTION TO BE PROCESSED ' 



YES 



PROCEED TO NEXT OFFSET 
CROSS SECTION 



IS TERRAIN INFORMATION 
MISSING FOR AN OFFSET 
CROSS SECTION' 



tS THIS THE 121** 
OFFSETS CARO READ ' 



I 



SWITCH 3 
| 0N~ 



LAST TERRAIN CROSS 
SECTION NOT PROCESSED 



SELECT TERRAIN POINTS 
LYING IN THE NEW 
BAND OF INTEREST 



INITIALIZE FOR DEFINITIVE 
STORAGE OF ONE TERRAIN 
CROSS SECTION 



STORE TERRAIN 



PUNCH AN OFFSET CARD: 
ITT, ID. BLS.CLS. OFF. 
DUM, OUM, OUM, SKEW 



MORE THAN 25 POINTS 


YES 


SWITCH 2 


ON 


PAUSE 


WERE PICKED OUT » 






♦." 




4 OFF 




. 1 



PUNCH TERRAIN CARDS 

ITT.IBL, STA,J(I),J(2>.J(3). J (4), 
J (5>, J (•>, J (7) , J (B) . J (9) . J ( 10 ) 



HAVE 121 OFFSET CROSS SECTIONS 
BEEN PROCESSED "» 



RE * INITIALIZE FOR STORAGE OF A NEW 
SET OF OFFSET CROSS SECTIONS 
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ROADWAY DESIGN/PREPARATION 
OPERATING INSTRUCTIONS 

Console Switches 

K PARITY - off, 1/0 CHECK - off, OFLOW - program 

2. Sense Switches 1 not used 

2 On: Counts Terrain Points; Pause > 25 

3 On: Counts Offset Cards; Pause > 121 
if not used 



Typewriter 

Not used 
Loading Program 

1. Clear Memory 310000300002 

2. INSTANT STOP, RESET, LOAD 
Order of Input 

1 . Program Deck 

2. Band of Interest Definition Card 
WIDL, WIDR 

3. Offset Deck (up to 121 cards) 

5, ID, BLS, CLS, OFF, DUM, DUM, DUM, SKEW 

4. Terrain Deck (up to 151 cards) 

IT, IBLS, GLSTA, IY1, IZ1, IY2, IZ2, IY3, IZ3, lYlf, \Zk, IY5, 125 

Restart Procedure 

Start again from the very beginning with the first offset card equal 
to the station of starting. 

1. INSTANT STOP, RESET, INSERT 4907500 

2. RELEASE, START 
Sorting and Listing Instructions 

Cards hav ing a 5 in card column 2 are offset cards; those having a 1 
are narrowed terrain cards. Sorting and listing is usually unnecessary. 
These cards can be entered directly into the Roadway Design/Template 
Program. 

Output Us* 

Collated Offsets and Narrowed Terrain Deck 

Offsets 

5, ID, BLS, CLS, OFF, DUM, DUM, DUM, SKEW 
Terr t, m |BLS, BLSTA, IY1, IZ1, IY2, IZ2, IY3, IZ3, IY4, IZ4, IY5, IZ5 
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C DTM DESIGN SYSTEM ** ROADWAY DESIGN / PREPARATION ** 20 K. 

C N«W» BRYAN ** A« VlLLAVtCES ** 10/25/61 

C CIVIL ENGINEERING SYSTEMS LABORATORY 

C CORRECTION 2 * A. VILLAVECES ** JAN U/62 

C CORRECTION 1 * A. VILLAVECES* 12/13/61 

C SWITCH 3 ON COUNTS OFFSET CARDS 

C SWITCH 2 ON COUNTS TERRAIN OUTPUT CARDS 





DIMENSION JD(5> »JE(5) *JY(68) . JZ< 68 > » J t 10 > » 


1D(121)*BLS(121) 


00001 




DIMENSION CLS< 121) *SK£W( 121) »OFFU21 ) 




oooor 




INITIALIZE 








K=l 




00003 




K2=121 




00004 




K3--1 




GOOOU 




K0= 1 




00006 




ISWl=l 




00007 




ISW2=1 




00008 




DUM=0. 




00009 




GENERAL READ 




00010 




READtWI DL *WI DR 




1 


READ. IT 




00011 




IFt IT-1 )2»30»2 




00012 




STORE OFFSETS 




00013 


2 


READ* ID <M »BLS< K) »CLS<<> *OFF ( K) *DUMM*DUMM* 


DUMM»S<EW(K) 




IFIK3) 100*100*34 




00014 


34 


IF(CLS(K)-CLS(<3) ) 1*1* 100 




00015 


100 


<3=< 




00016 


K = K + 1 




00017 




IF t K-K2 ) 1 ♦ 3 » 3 




00018 


3 


IFtSENSE SWITCH 3)4»5 




00019" 


4 


PAUSE 




00020 


5 


<=1 




00021 




GO TO 1 




00022 




NARROW TERRAIN WIDTH 




00023 


30 


READ* I BLS* BLSTA 






DO 31 M*l*5 




00024 


31 


READ* JD(M) t JE( M) 




00025 




I F i 1SW1-1)24»21*24 




00026 


24 


IF( IBL-IbLS>6*25*6 




00027 


25 


I F< STA-BLSTA)6*37»6 




00028 


6 


K4=K0+1 




00029 




IF(STA-BLS(K0) ) 36*11*36 




00030 


36 


I F<STA-8LS(K4M 21*33*21 




00031 


33 


K0*K0+1 




00032 




IF<K0-K2+1)6»8»8 




00033 


8 


IF(SENSE SWITCH 3)9*10 




00034 


9 


PAUSE 




00035 


10 


ISW2=2 




00036 


11 


NPP=NP-1 




00037 




YWlDL=OFF(K0)+WIDL 




00038 




YWIDR=0FF(K0)+WIDR 




00039 




JWIDL=YWIDL 




00040 




JWIDR*YWIDR 




00041 




)C1»1 




00042 




DO 14 I*2*NPP 




00043 




I F ( JY ( I ) -JWI DL ) 14 » 12 » 12 




00044 


12 


IF< JY( I-D-JWIDR) 13*13*16 




00045 


13 


JY<K1)=JYU-1) 




00046 


JZU1)=JZC I-l) 




00047 




Kl=Kl+l 




00048 



o 
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14 CONTINUE 00049 

16 JY<K1)»JYU-1> 00050 

JZ(K1)«JZU-1) 00051 

NTP-IU+1 00052 
PUNCH COLLATED DECK 

IF( SENSE SWITCH2)51,52 00053 

51 IF<Kl-25)52t52t50 00054 

50 PAUSE 00055 

52 PUNCH.5.IDU0) »BLS<<0> »CLS(K0) »0FF(K0) ♦DUMtDUM.DUM.SKEWt KO > 00056 

DO 26 I«NTP»68 00057 

JYMI-O 00058 

26 JZU>.0 00 059 
DO 28 I-1.K1.3 00060 
IJeI 00061 
DO 29 M-1,10.2 00062 
J(M)«JYUJ) 00063 
J(M+1)=JZ(IJJ 00064 

29 IJpIJ+1 00065 

28 PUNCH,1,IBL.£TA»J(1J .J«2)»J(3) *J(4)»J(5) ,J(6) tJ(7) »Jt8) »J(9),J( 10) 00066 

IF< ISW2-1)21»21.40 00067 

*° 00068 

lS " 2 * 1 00069 

21 Npsl 00070 
37 STA«BLSTA 00Q71 

I BL S IBLS QO0T2 

DO 23 M.1,5 00073 

IFUE<MJ>22. 27,22 q 007 £ 

22 JY(NP>*JD(M) 00075 
JZ(NP)«JEtM» 00076 

23 NP-NP+1 000 77 

27 ISW1«2 ^ 7e 
GO TO 1 O0 079 
END 00080 
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ROADWAY DESIGN/TEMPLATE 

p "rpose 

The Roadway Design/Template program computes the vertical geometry, 
the profile grade, and the shape of the template at each station of the 
alignment. These cards are then used for the volume computations performed 
in the Roadway Design/Volumes program. 

Description 

The vertical alignment is defined by giving the station, elevation, 
and curve length at each V.P.I. This information is used by the program 
to compute grades, V.P.C., V.P.T., and elevations of V.P.C. and V.P.T. for 
each curve. 

The template is made up of a series of links which can be shaped to 
conform to almost any roadway. Each link is defined by giving its dy and 
dz dimensions. Negative dy»s are associated with links to the left of the 
centerline. Positive dy's apply to the right. Negative dz's are given to 
those links which slope down. The template is defined starting at the 
middle and working to each side. The template is connected to the profile 
grade by a final link defined by a DYTIE and a DZTIE-. 

The way in which the template is defined allows parts of it to be 
changed without disturbing the rest. If, for instance, the link in the 
template representing the median were redefined by changing the dy and 
dz to make them larger, the other template parts would be merely pushed out. 
Template change cards are used to modify the template specified at the 
beginning of the run. Changes require that the station numbers be given 
at the section where the change begins to occur and at the section where it 
is completed. The change is applied linearly between the beginning and 
ending stations. 

Since the offset distance must be known before the template can 
be applied, it must be given for each cross section.. This information 



Page 30 



was produced in the Alignment Design/Offsets program and is passed on 
in the form of offset cards. The Roadway Design/Template program places 
the information from these cards in a table which can hold 20 cards. It 
is not necessary for each offset to be in the table because the values 
used by the program are interpolated between those given in the table. 
This feature makes it possible for the Roadway Design programs to be 
used without being preceded by the Alignment Design program. This is some- 
times desirable where only one roadway is being evaluated. In this case, 
one offset card at the beginning and another at the end are all that is 
necessary. Parallel roadways can also be handled in this manner. The 
Roadway Design programs can therefore be used as conventional earthwork 
programs. 

Offset cards may either be collated with the terrain as occurs when 
the Roadway Design/Preparation program is used, or they may be placed in 
with twenty offset cards and twenty terrain section, twenty offsets, 
twenty terrain, and so forth. The template may be changed at any time by 
merely inserting a new set of template cards in the terrain deck. 

Program Operation 

After read-in, the program computes the»vP.C. and P.T. centerline 
station numbers, their elevation, and the grades of the road before and 
after each curve. The templates are then computed by interpolation at 
those stations where the cross section of the road is changing. This tem- 
plate is output as pass-on information for the first section and for those 
stations where the template is different from the previous station's template. 

If terrain information is given at a section for which no corresponding 
offset data exists, the program interpolates the offset, the centerline 
station number, and the skew angle corresponding to this section. 

The output deck is all used as input to the Roadway Design/Volumes 
program, except those cards having an identification number (IT) of 10. 
These cards are to be found at the first of the output deck and contain 
vertical geometry output. { . 
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IT = 8 



TEMP. CHANGE READ 




IT=5 



OFFSETS READ 



TERRAIN 
READ 



| BLSTA ADVANCE 



I NTERPOLATE 
OFFSETS 
ROUTINE 



i 



TEMPLATE 
CHANGE 
ROUTINE 



VERTICAL 
ALIGNMENT 
GRADES 



i 



PUNCH 
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ROADWAY DESIGN/TEMPLATE 
OPERAT t NG I NSTRUCT I ONS 

Console Switches 

1. PARITY - off, I/O CHECK - off, OFLOW - program 

2. Sense Switches 1 not used 

2 not used 

3 not used 
k not used 

Typewriter 

Not used 

Loading Program 

1. Clear memory 31OOOO3O0OO2 

2. INSTANT STOP, RESET, LOAD 

Order of Inout 

1 . Program Deck 

2. Terrain Factors Card 
FACl, FAC2 

3. Vertical Geometry (up to 20 cards) 

6, I DENT, SVPl, ZVP1, CLENG 

k. Additional Parameters (2 cards) 

9, CL1, CL2, CCL, DYTIE, DZTIE, CCR, CR2, CR1 
9, FL1, FL2, FCL, FMUL , CMUL, FCR, FR2, FR1 

5. Template Links (7 cards) 

7, PY(M), DZ(M), DY(M+»), DZ(M+i), DY(M+2) , DZ(M+2), DY(M+3), DZ(H*3) 

6. Template Changes (up to 10 cards) 

* 8, IP(J), START (J) , END(J), WIDTH(J), HEIGHT(J) 

7. Offsets (up to 20 cards) 

* 5, ID(K), BLS(K), CLS(K), 0FF(K), YS, YS, YS, SKEW(K) 

8. Terrain (up to 20 matching stations) 

IT, IBLS, BLSTA, IY(l), IZ(l), IY(2), IZ(2), IY(3), IZ(3), IY(lf), IZ(lf) , 
IY(5), IZ(5) 

* 

Output from the Roadway Design/Preparation program may be used instead 
of collated Offset and Terrain cards v 

Special Instructions 

Output from this program (with the exception of the geometry output) 
is used directly as input to the Roadway Design/Volumes program. 

Restart Procedure 

To start a new run, branch to 07500. For a mistake, branch to general 
read 7728. 

Sorting and Listing Instructions 

Vertical Geometry output is easily recognized by a card type of 10. 
List with 80 column panel. The rest of the output is pass-on information 
to the Roadway Des ign/Volumes and is not usually listed. 

Output List 

1. Vertical Geometry Output 

16, SVPC, ZVPC, SVPIN, ZVPIN, SVPT, ZVPT, CLENG 
I 0„ GA 

2. Collated Pass-on Deck 

1, STA, CLSTA, H0FF, V0FF, SKEWA, NTP, ISW 

2, Y(l), Z(l), Y (1 + 1 ) , Z(l + 1), Y(l+2), Z(l+2) Y(NTP), Z(NTP) 

3, DY(1), DZ(l), DY(1 + 1), DZ(1 + |) DY(28), DZ(28) 
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140 



100 



101 



3000 
3001 



3004 



3002 
3003 
3005 



220 



221 



DTM DESIGN SYSTEM ROADWAY DESIGN / TEMPLATE ** 20 K 

N.W. BRYAN ** JULY 21*1961 

REVISION NO. 3 ** JAC ** 26 MARCH 61 

REVISION NO. 2 *♦ POR *» 3 NOV 61 

REVISION NO. 1 ** JAC ** SEPTEMBER 1961 

DIMENSION SVPI ( 20 ) tZVP H 20 ) .CLENG (20 ) *DY ( 28 ) *DZ ( 28 ) 

DIMENSION ID (20) *BLS<20> *CLS(20> .OFF (20) 

DIMENSION SKEW (20) »IP( 10) .STARTUO) »ENDO0) .WlDTM( 10) tHEIGT ( 10) 

INITIALIZE 

READ.FAC1 *FAC2 

ISW4—1 

ISW3=0 

J*0 

IC=1 

K0»1 

M=l 

N=l 

ISW2=1 

GENERAL READ 
READ* I T 

GO T0( 16U* 140* 140 .140.150 .100 .110 .130 .220) .IT 

VERTICAL ALIGNMENT READ IT=6 

READ* IDENT 

DO 101 1=N. 60.20 

READ.SVPI ( I » 

IF(SVPI ( I ) -999999.98 ) 101 * 3000* 3000 

CONTINUE 

N=N+1 

GO TO 140 

VERTICAL ALIGNMENT**PART 1 

ISwl^l 

N = l 

ZVPIN*ZVPI ( N ) 
SVPIN»SVPl(N) 
DIMENSION Y(25) 
YS*ZVPI (N+D-ZVPIN 
Y1=SVPI (N+D-SVPIN 
DIMENSION Z(25> 
S-YS/Y1 

Y2*CLENG(N)/2. 

SVPC*SVPIN-Y2 

ZVPC»ZVPIN-GB*Y2 

SVPT=SVPIN+Y2 

ZVPT»ZVPIN+S*Y2 

IFl ISW1-2)3002»4003.4008 

IFIN-1 ) 3005*3005*3003 

PUNCH, 10 *SVPC. ZVPC. SVPIN. ZVPIN.SVPT »ZVPT »CLENG< N > 

PUNCH* 10 »S 

N»N+1 

GB»S 

I F (CLENG ( N ) -999999. 98 » 3001 * 140 . 140 
READ ATT TABLE 

READ*DY ( 2 ) »DY ( 1 ) *DY ( 5 ) »DYf 13 ) .DYI14) »DY( 8) *0Y ( 12 ) »DY ( 11 ) 

READ»IT»DY(4).DY(3).DY«6)»DY(15) *DYI 16 ) »DY ( 7 ) »DY ( 10 ) *DY ( 9 ) 

PUNCH. 1 

DO 221 1*1.16 

PUNCH. DY( I > 

GO TO 140 

MAIN TEMPLATE READ IT«7 



00001 
00002 
00003 

00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 

00013 
00014 

00015 
00016 
00017 
00C18 
00019 
00020 
00021 

00023 
00024 
00025 
00026 
00027 
00026 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 

00043 
00044 
00045 
00046 
00047 
00048 



Page 33 



110 


no ill 


00049 




RF APi.OY 1 M 1 m(S7 t M 1 


00050 


111 
ill 


H S M+1 


0005 1 




/in to i *vn 


00052 




DCAft TCuDl ATP n4AMf,F TAUI p IT.Q 

Kt«U Itflrl.^lt v.n«F>(Ot 1 ADLC 1 1 a O 




130 


J S J+1 






READ* IP 1 J ) 


00054 




DO 131 I X J*40» 10 


0005 5 


131 


READ*oTART i I ) 


00056 




oU TO 140 


0005 7 




nccccTC oc&n it— & 




150 


Kb AO* lUiKitbLotK.) >CLo( k I tUrr IK) »Yo»Yo»Ti»5R.ci«llk) 


fifing h 




I F ( K-l ) 152* 152 . 153 


000 5 9 


153 


Ir t CLSl M — CLSC K-l l ) 140* 140* 15? 


WvUOU 


152 


K = K+ 1 


00061 




I r i n-ZO 1 140 • 14Cm 1 5 1 


0006 2 


151 


K=l 


0006 3 




GO TO 14Q 


00064 




INTERPOLATION ROUTINE 




art 




00065 




Y*i«Y?— Y^*f Y2— Yt ) 


00066 




GO T0( 186*187*188*208*209) » ISW3 


00067 




TERRAIN READ 17*1 




160 


READ* IBLS.BLSTA 


00068 




if f I <;y^— 1 1 1 70 • 161 • l ai 
ir \ * owu * 1 a f v * xox tioi 


00069 


161 


ip/|fll - Ifll ^llA^.IAp.l&a 

1 ' I I OU 1 DUO 1 10JtlO£IJ03 


00070 




TFI<;TA— ft! ^T A 1 1 A1« 1 71 • 1 fcl 


00071 


163 


NTP = M TP — 1 


00072 


175 




00073 




I F * 1^3 2°l 164 » 164 • 176 


000 


176 


K3»l 


UUU r 3 


164 


IF( IBL-ID(KO) > 169 1 165*169 


00076 


165 


tCI CTA-DI C 1 it f\ \ \ 1 7A . 1 fit* . 1 A7 


00077 


1 c t 
16 1 


TCI IUI .tni^li 11 X.O m. 1 Aft - 1 AQ 


00078 


168 


lr(dlA~Di.O(Nji I 103*107*107 


00079 


169 


K0sK0+l 


00080 

WW w W U 




I r i A0~c0 1 1 /0»100»1©0 


00081 


166 


K0 3 1 


00082 




60 TO 175 


00083 


170 


NTP=1 * 


00084 


171 


T Lll * 1 Ql C 

IdL s 1dL5 


00085 




STA»BLSTA 


o on ft a 

\J \J \J O W 




r\t\ 1*7*% u— ■ 1 » C 
DU 1 73 M- 1*5 


00087 




KtAU* *IY • Jt 


00086 




YS*JY 


00089 




Y { NTP ) »YS#F'AC1 


00090 




YS a JZ 


00091 




7(NTOl cv^trAr? 


00092 




tr i7(NTPI il7?«17'3«172 


00093 


172 


MTDsMTDx 1 


00094 


173 


CONTINUE 


00095 




ISW3«1 


00096 




M*l 


00097 




60 TO 140 


00098 




INTERPOLATE OFFSETS ROUTINE 




185 


S«STA 


00099 




S1«BLS<K0> 


00100 




S2*BLS(IC3) 


00101 




Y1«CLS(K0> 


00102 
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Y2=CLS(K3) 
GO TO 30 

186 CLSTA=YS 
Y1*0FF(K0) 
Y2*0FF< K3) 
ISW3«2 

GO TO 30 

187 H0FF= YS 
Y1=S<EW(K0) 
Y2=SKEW(K3) 
ISW3«3 

GO TO 30 

188 SKEWA*YS 

C TEMPLATE CHANGE ROUTINE 

IF( J)200»4010*200 
200 DO 210 IT«1*J 
V0FF»END( IT) 
J1«IP( IT) 

I F ( CLSTA-START ( IT) )210»207.206 

206 IF(CLSTA-VCFF)207»207t216 

216 IF(V0FF)217.210.217 

207 ISW4"1 
Sl»STARTi IT) 
S2»V0FF 
S=CLSTA 
Y2«WIDTH(IT) 
Yl*DY t J 1 ) 
ISW3*4 

GO TO 30 

217 DY< J1)*WI0TH( IT) 
D2( J1»=HEIGT( IT) 
END( I T ) *0 
ISW4«1 

GO TO 210 

208 DY(J1)«YS 
Y2-HEIGTUT) 

Y1»D2(J1» 
ISW3«5 
GO TO 30 

209 D2(J1)«YS 

210 CONTINUE 

C VERTICAL AL I GNMENT*»PART 2 

4010 IF( IStf2-2)4001»4002*4011 

4001 N*l 
GB»0 

4002 ISW1-2 
ISW2-2 

GO TO 3001 

4003 I F t CLSTA-SVPT ) 4006 .4004.4004 

4004 N*N>1 
GB«S 

IF (CLEN6(N)-999999. 98) 3001*4005. 4005 

4005 ISW2«3 
2VPIN«ZVPMN) 

4011 Y2«SVPHN)-CLSTA 
IF(Y2) 140*4007.4007 

4006 YS«CLSTA-SVPC 

IF< YSJ4011. 4011. 4009 

4007 ISttl»3 



00103 
0010<* 
00105 
00106 
00107 
00108 
00109 
00110 
00111 
00112 
00113 
00114 
00115 

00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 c 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 

00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
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GO TO 3004 00160 

4008 VOFF-ZVPC 00161 
GO TO 211 00162 

4009 YS«YS*YS 00163 
Yl«t S-GB)/(2.*CLENG(N) ) 00164 
Y2»GB« * CLSTA-SVPC > 00 165 
V0FF»2VPC+YS»Y1+Y2 00166 

C GENERAL PUNCH 

211 PUNCH»2t JBLtSTA»CLSTAtHOFFtVOFF tSKEwAtNTPt ISW4 00167 
M-NTP+1 00168 
DO 215 I»H»27 00169 
Y(I>«0 00170 

215 Z(I)«0 00171 

PUNCH»3 00172 

DO 212 I*ltNTPt3 00173 

212 PUNCH*YCI)tZ<I>»Y<I + l}»ZU*l>«Y(l+2)tZU*2> 00174 
IF( ISW4rl)213.213.170 00175 

213 DO 214 1*1.28.2 00176 

214 PUNCHtDYU)»DZm»DY(I + l>tDZC 1 + 1) 00177 
ISW4-2 00178 
GO TO 170 00179 
END 00180 



1t 
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ROADWAY DESIGN/VOLUMES 

Purpose 

The purpose of the Roadway Des ign/ Volumes program is the computation 
of earthwork volumes demanded by a particular alignment. It reads and 
stores the template definitions and template parameters passed on from 
the Roadway Design/Template program and will at each cross section apply the 
specified design criteria in order to determine the final template to be 
used. Areas, volumes, and slope intercepts are then computed and output. 

Description 

The Roadway Design/Volumes program has been designed to accept as 
input the output from the Roadway Design/Template program. The only 
additional input needed are initial volumes if they are to be other 
than zero. If initial values of the accumulated cut and fill are not 
desired, then no input other than the Roadway Design/Template is required. 

For cases of overlapping slope stakes or for instances where 
classified materials are to be evaluated, the ability to punch the "as-built 1 
template has been incorporated. The template data is prepared for further 
use in the Materials Classification/Preparation program. 

Program Operation 

The program first reads the template parameters passed on from the 
Roadway Design/Template program. The template parameters consist of two 
cut slopes, two fill slopes, the cut criteria and the fill criteria for 
both the right and the left sides, a cut and fill multiplication factor, 
and the horizontal and vertical dimensions which tie the profile grade line 
to the centerline of the roadway template. 

Hi 
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Next, a card ts read giving the baseline station number, the 
centerline station number of that section, the horizontal offset of the 
centerline from the baseline, the profile elevation, the skew angle, 
and a number which tells the program whether or not there is a new 
template to be read at that section. Terrain information for that cross 
section is read next, the coordinates for points 5 to 17 in the template 
are then computed, and it is determined at both right and left whether 
the road is in cut or fill at those points. Next, the low fill or cut 
slope is tried, and the intersection points of the slopes and terrain 
are computed. If the cut or fill criterion is exceeded, the high slope is 
selected and the intercept computed. If the selected slope is parallel 
to the ground surface at the section or if any of the intersection is 
not found within the range for which terrain information is given, the 
program will set the intersection as occurring at the last given terrain 
point. This is done in order to permit the program to continue the 
computations without interruption. (Although no messages will be given 
out if this happens, the error will be easily detected in the slope-stakes 
plot.) The program then computes the end area and the volume between : 
succeeding stations. The computed volumes can be swelled or shrunk by 
use of the fill and cut multiplication factors: FMUL, CMUL. 

The output consists of two types of ca-rds: slopes cards and volumes 
cards. The slopes card, with identification number IT=11, contains the 
baseline station number, the centerline station number, grade, the slope type 
selected on the left, the slope coordinate at the left of the centerline, 
the offset- of the-center line, the slope stake coordinate at the right, and 
the slope type selected on the right. A slope type of 3 indicates cut; h t fill. 
The volumes card, with identification number IT=12, contains the baseline 
station number, the centerline station number, the volume in cut computed 
at that cross section, the volume in fill computed at that station, the 
accumulated volume in cut in the alignment, the accumulated volume in 
fill in the al ignment, and the haul at that station. 

Hi 
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MACRO FLOW DIAGRAM 
ROADWAY DESIGN /VOLUMES 



INITIALIZE 



HEAD TEMPLATE 
INFORMATION 



ADD CUT TEMPLATE 
SEGMENT - PTS. 3,4 



TRY CUT SLOPE NO. I 

i 



DOES THIS SLOPE 
SATISFY THE CUT 
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ISW-0 COMPUTE LEFT SIDE 
ISW • I COMPUTE RIGHT SIDE 
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SET ISW-2 
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ROADWAY DESIGN/VOLUMES 
OPERATING INSTRUCTIONS 



Console Switches 

1. PARITY - off, I/O CHECK - off, OFLOW - program 

2. Sense Switches I On - punches template cards 

2 not used 

3 not used 
k not used 

Typewr i ter 

Not used 
Loading Program 

1. Clear memory 310000300002 

2. INSTANT STOP, RESET, LOAD 
Order of Input 

1 . Program Deck 

2. Volumes restart (if used, branch to 7508) 
12, BLSTA, SA, CUTV, FILLV, CUMC, CUHF, HAUL 

3. Pass-on deck from Roadway Design/Template program (less Vertical 
Al ignment Output, IT=I0) 

Special Instructions 

The pass-on data consists of all the output cards from the Roadway 
Design/Template program, except those which have an identification 
number of 10. These cards are on the top of the deck and need only 
be slipped off before entering the Roadway Design/Volumes program. 

Restart Procedure 

If the program is stopped by mistake, machine failure, etc., take 
the last volume card IT=12, punched by the program, and use it as 
a volume restart card. Branch to 07508 and follow the volume restart 

Heard with the normal input for this station. This procedure assumes 
that the memory has not been disturbed. 

j |'"| >— ^Sorting and Listing Instructions 

C~*S Sort on CC2 and 3 to Pl ace in three stacks. List each with an 80 

„i column panel. 

«^utput List; 

— iL.-ii 1 . Slope Card J v 

U II, ID, BLSTA, SA, V0FF, NL, YH(l), YH(U), YH(2l), NR 

m 2. Volumes Card 

^— 12, BLSTA, SA, CUTV, FILLV, CUMC, CUMF, HAUL 

I — J 3. Template Cards (21 points) 
ppj 2, BLSTA, YH(l ) , ZH(l) 

2, BLSTA, YH(21).ZH(21) 

-< 
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C DTM DESIGN SYSTEM ** ROADWAY DESIGN / VOLUMES ** 20 K 

C W.A. BRIGGS/SLOPE STAKES ** J.A. CURRIE/VOLUMES ** JULY 21,1961 

C REVISION NO. 3 ** JAC »* 26 MARCH 61 

C REVISION NO. 2 ** JAC ** AUGUST 1961 

C REVISION NO. 1 ** JAC ** JULY 1961 

DIMENSION Y(27) ,Z( 27) ,YH< 21) ,ZH( 21 )»DY< 26) .DZ( 28) ,ATT( 12) 
C INPUT ROUTINES - NOT PART OF SUBPROGRAM 

GO TO 83 

READ, IT ,BLSTA,S6»Curv, FILLV, CUMCCUMF, HAUL 

83 READ » I T 

IF( IT-2 )82»80*84 
82 DO 81 1*1,12 
81 READt ATT ( I ) 

READ»DYTIE»DZTIE»FMUL »CMUL 

GO TO 83 

80 READ* ID»BLSTA,SA»HOFF»HAULtSKEWAtNTPtNSW 
1=0 

GO TO 83 

84 DO 85 ISW=1,NTP»3 
DO 86 J= 1 ♦ 3 

1 = 1+1 

86 READ* Y ( I ) »Z( I ) 

85 CONTINUE 

DO 90 1=1,28 
IF(NSW-1 )87, 90,89 

87 SB=SA 

90 RE AD » DY ( I ) , DZ ( I ) 
C BEGIN SLOPE STAKE LOCATION SUBPROGRAM 

C COMPUTE COORDINATES FOR POINT 11 

89 YH( 1 1 ) -HOFF+DYT I E/SKEWA 
ZH( 11 )=HAUL+DZTIE 
NSW=NTP-1 

C COMPUTE COORDINATES FOR POINTS 5 THROUGH 18 

M*14 
1 = 10 
JJ=1 
NHP=1 

DO 1201 ISW=0,1 
IKE=0 

DO 10 K = l ,6 
5 L=I+JJ 

YH( I >=YH<L )+DYtM) /SKEW A 

ZHt I )=ZH(L)+DZ£M) 

IFUKE-l>9,131il41 
9 I=I-JJ 
10 M=M-JJ 

C TEST POINT 5, K INCR. BY 1 IF 5 IS IN FILL 

K = l 

I =5+12* I SW 

C TEST POINT SUBROUTINE, INCR» K BY 1 IF POINT IS IN FILL 

1100 DO 1135 J=1,NSW 
IKE=-1 

IF( t YHU >-Y( J) >*( YH( I >-Y< J+l ) >> 800*800 • 1 135 
1120 T1=ZH< 1 )-Z( J)-T1 

IF( Tl> 1130*1125,1125 
1125 K=K+1 

1130 GO TO ( 125»126»140»140»175*1000»1000»175*205fl000»1000»205) *K 
C POINT NOT IN TERRAIN » SET NSW TO NTP AND EXIT 

1135 CONTINUE 



00001 

00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00016 
00019 
00020 
00021 



00022 
00023 
00024 

00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 

00038 
00039 

00040 
00041 
00042 
00043 
00044 
00045 
00046 

00047 
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GO TO 83 

C INTERSECT LINES I .1+1 AND J.J+1 STORE INTERCEPT IN YH(1>.ZH<1> 

C K=6*7.10. OR 11 

1000 J=NSW»ISW+1 

00 1015 IKEM.NSW 

L«J+JJ 

NTP»I+JJ 

YJ*Y ( J ) 

A1»Y(L)-YJ 

A2»YH<NTP)-YH< I > 

ZJ«Z(J> 

DA-Z(L)-ZJ 

DB«ZH(NTP)-ZH( I ) 

XA*A1»0B 

X8»A2«DA 

T1«<ZHC I )-Z J)*A1*A2 

YH(NHP)«tTl+YJ*XB-YH( I >*XA > / < XB-XA ) 
YHN-YH( NHP ) 

ZH ( NHP ) «Z J+ ( YHN-Y J ) *0A/ A 1 
IF< < YHN-Y J)* (YHN-Y(L) ) ) 1020*1020 . 1015 
1015 J=J+JJ 
1020 IF< I-NHP)220. 220.170 
C ADD CUT OR FILL TEMPLATE SEGMENTS. PTS. 3 AND 4 

C TEST POINT 3. INCR. K BY 1 IF IN FILL 

C K»l OR 2 

125 M=6+17»ISW 
GO TO 129 

126 M»8+13»ISW 

129 I«NHP+3*JJ 

00 130 NTP=1,2 
IKE*1 
GO TO 5 
131 I-I-JJ 

130 M-M-JJ 
I-f+JJ 
K«3 

GO TO 1100 

C USING SLOPE SET 1 THEN 2 • COMPUTE COORDINATES OF POINT 2 -THE 

C SLOPE BROKEN-BACK POINT 

C K»3 OR 4 

140 NL»NR 
NR-K 

JSW«(K*K>/4 

I»NHP+JJ 

00 245 KSW=lt2 

M»29«ISW+JSW»JJ 

IKE«2 

GO TO 5 

141 K-JSW+KSW+2 
GO TO 1100 

C TERRAIN INTERCEPT BETWEEN POINTS 2 AND 3. SET 1 AND 2 TO 

C INTERCEPT AND CONTINUE 

170 YH< I )*YH(NHP) 

ZH(I1»ZHINHP) 

GO TO 220 

C NO INTERCEPT BETWEEN PTS. 2 AND 3. COMPUTE FICTITIOUS POINT 

C ON SLOPE AND TEST THAT POINT FOR CUT OR FILL 

C K«5 OR 8 

175 IF(ISW)176.176.177 

f 1 - 
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00048 



00049 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 



00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
000 79 



00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 



00090 
00091 
00092 



00093 



176 



177 
178 



179 
174 



M=JSW 
GO TO 174 

IFUSW-2) 178.178.179 
M=10+KSW 
GO TO 174 
M=8+KSW 
NTP=NSW*ISW+1 
I=NHP 

CUTA=4-JSW-KSW 
L*I+JJ 

ZH( I ) =ZH( L ) + C CUT A* (YH(L)-Y(NTP) >/ATT<M) )*SK£WA 
YHt I ) - Y t NTP ) 
K=JSW+KSW+6 
GO TO 1100 

C IF SLOPE DOES NOT INTERSECT TERRAIN. SET LAST TEMPLATE POINT 

C TO SAME COORDINATES AS LAST TERRAIN POINT. 

C K=9 OR 12 

205 I=NHP 

NTP=NSW*ISW+] 

YHt I ) = Y ( NTP ) 

ZH( I )=Z(NTP) 

C IF THIS IS THE SECOND SLOPE SET. DONT TEST CUT OR FILL CRITERIA 

220 IF< KSW-1J225. 225. 1200 
C TEST SLOPES AGAINST CUT OR FILL CRITERIA 

225 K=4+5*ISW+JJ*< JSW+D/2 
JS«I+2*JJ 

IF( CUTA*(ZH( I )-ZH( JS) )-ATT(K) ) 1 200 . 1 200 . 240 
C TRY SECOND SLOPE SET 

240 I=NHP+JJ 
245 JSW=JSW-1 

1200 JJ=-JJ 
NHP=21 
1 = 12 

1201 M=15 

C EARTHWORK AREA AND VOLUME SUBPROGRAM 

FILLA*0 
CUTA=0 
1 = 1 
J=0 
IKE=0 

301 J=J+1 

IF< Y< J>-YH( I ) ) 301 .500.302 

302 1=1-1 
J=J-1 

303 1=1+1 

800 T1*(Z< J+D-Z< J) )*< YH( I )-Y( J) )/< Y( J+l )-YC J) ) 
IF( IKE) 1120*801.801 

500 T1*0 

801 DA*Z( J)-ZH( I )+Tl 
XA«YH< I ) 

IF( IKE)304.304.307 

304 IKE»1 

305 DB=DA 
XB»XA 

IF(YH( 1+1 )-Y( J+l ) ) 303 .504. 306 

306 J=J+1 

DA»Z( J)-( (ZH( I+1)-ZH( I ) )*( Y( JJ-YH< I) ) ) / < YH( I ♦! » -YH< I ) )-ZH< I ) 
GO TO 506 
504 J=J+1 



00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 



00108 
00109 
00110 
00111 

00112 

00113 
00114 
00115 

®#&16 
00117 
00118 
00119 
00120 
00121 

00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
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1x1 + 1 00146 

DA»Z(J)-ZH( I ) 00147 

506 XA=Y<J> ^0148 

307 W=0.5*( XA-XB) 00149 
IFtDA*DB)309,308.308 00150 

308 A1*W#<DA+DB) 00151 
GO TO 313 00152 

309 W«W/(DA-0B) 00153 

T1«DA*DA*W 00155 

IFCT1I321. 313*312 00156 

311 FILLA-FILLA+T1 00157 
GO TO 313 00158 

312 CUTA=CUTA+T1 00159 

313 IF(A1>314, 315,315 aqiao 

314 F I LLA-F I LLA+A1 QQ\S\ 
GO TO 317 00162 

315 CUTA*CUTA+A1 QOlti 
317 IFU-21>305,320.320 00164 

320 Al*(SA-SB)/54. 00165 
CUTV* < CUTA*SKEWA+BCUT A»SK£WB > *A 1 00 166 
FILLV- t F lLLA*SKEwA+BF I LA*SK.EWB) *A1 00167 
CUMOCUMC+CUTV*CMUL 00168 
CUMF-CUMF+F 1 LLV*FMUL 00 169 
PUNCH,ll,IO,BLSTA»SA,HAuLtNL,YH( 1),YH( 11) ,YH(21) tNR 00170 
HAUL-CUMC+CUMF 00171 
PUNCH, 1 2 »BLSTA ,SA tCUTV ,FI LLV ,CUMC ,CUMF .HAUL 00172 
SB»SA 00173 
SKEWB-SKEWA 00174 
BCUTA-CUTA 00175 
BFILA-FILLA 00176 
IFt SENSE SWITCH 1)321,83 00177 

321 DO 323 1-1.21 00 i7t> 
323 PUNCH, 2,BUSTA, YHt I) ,2H( I) 00179 

GO TO 83 00180 

END 00181 
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MATER ! ALS CLASS I F I CAT I ON /PRE PARA T I ON 

Purpose 

The Materials Classification/Preparation program is intended to 
prepare the input terrain data for the Materials Classification/Volumes 
program or to prepare template data as terrain for further use in the 
system. 

Descr jpt ion 

As it is presently written, three cases are covered. The first of these 
is the overlapping slope stake case. This is where there are two separate 
roadways paralleling each other and the templates of these two roads 
are overlapping. The first pass through the DTM Design System would be 
with template No. 1 and the original terrain. The associated cut and fill 
volumes are computed. The Materials Classification/Preparation program takes 
the original terrain and template No. 1 and computes the new "as-built" 
terrain as shown by the dotted line in Figure 1. The earthwork volume 
programs are then rerun with template No. 2 and the new converted terrain. 
This procedure is necessary so that the volume corresponding to region A 
in Figure 1 will not be computed twice. 

The second case for which data is prepared is where the template lies 
completely within rock (Figure 2). The first pass through the System is 
made with the original earth terrain and the desired roadway template. 
The total volume of material to be removed is calculated on this pass. The 
Materials Classification/Preparation program computes the "as-built" terrain 
as shown by the dotted line in Figure 2. This terrain and the rock line 
(which is denoted by 2's in Figure 2 and which is input as the new template) 
is then used as input for the Materials Classification/Volumes program. If 
the cut factor is set equal to zero, the resulting volumes will be the 
quantity of rock that has to be removed. 

The Materials Classification/Preparation program can also be used for 
calculating quantities in interchanges. The main line quantities are evaluated 
in the normal manner and the main line template is obtained. The template 





FIG. 2 ROCK MODEL 
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and original ground are used in the Materials Classification/Preparation 
program to obtain main line terrain. After the interchange ramps have 
been laid out, contoured terrain data is taken across this "as-built" 
surface* This "as-built" terrain and the main line terrain are run in the 
Materials Classification/Volumes program to obtain interchange quantities. 
Note that this method obtains ramp quantities exclusive of the main 
1 ine quantities. 

Program Opera^on 

The program : is capable of handling the terrain and the resulting 
templates from as many baseline stations as may be desired by the operator. 
However, at any one station there should not be more than 2k terrain 
points. As in the other DTM Design System programs, the template is 
designed to be described by 21 points. 

At each baseline station, at least one terrain point should be 
equal to or outside the extreme template points; that is, the defined 
template must be completely within the given terrain. 

The input template data is the output from the Roadway Design/Volumes 
program and will be in one point per card, floating point form. 

The Input terrain data is from the original terrain deck used In 
the rest of the system and will be in five points per card, fixed point form. 
Two constants (FACl and FAC2) can be read in so that the location of the 
decimal point can be controlled, If so desired. 

Output is five points per card in fixed point form and includes, 
in addition to the converted terrain points, and IT and 10 number and the 
base! the station. 
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MACRO FLOW DIAGRAM 
CLASSIFIED MATERIALS / PREPARATION 



READ TEMPLATE 
IT, IBL, 8LS,IXI,IYI,IX2,1Y2,IX3. IY3.IX4, IY4, IX*, IY5 



RE AO TERRAIN 
IT, IBL, BLS.JXI ,JYI, JX2, JY2, JX3.JY3, JX4, JY4, JX5, J Y5 



OOES FIRST POINT ON TEMPLATE LIE BETWEEN 
J 1 " AND J ,fc +1 POINT QF TERRAIN? 



1 


NO 


4 YES 


STORE 


THIS 




STORE THIS 


TERRAIN 


POINT 




TERRAIN POINT 



HAVE FIVE POINTS 
BEEN STORED t 

^ NO |«YE 



HAVE FIVE POINTS 
BEEN STORED ? 



STORE FIRST 
TEMPLATE POINT 

1 



HAVE FIVE POINTS 
BEEN STORED f 





NO 


PUNCH 


STORE NEXT 
TEMPLATE POINT 


. 1 



IS THIS LAST 
TEMPLATE POINT f 



STORE 


THIS 




J m J *| 


YES 


DOES LAST POINT ON TEMPLATE LIE BETWEEN 


TERRAIN 


POINT 






J tk AND J***! POINT OF TERRAIN? 



HAVE FIVE POINTS 
BEEN STOREO? 



STORE NEXT TERRAIN POINT 



LAST TERRAIN POINT ? 



I YES 



COMPLETE LAST CARD WITH 
ZEROES AND PUNCH 
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MATERIALS CLASS I F I CAT I ON/PREPARAT I ON 
OPERATING INSTRUCTIONS 

Console Switches 

1. PARITY - off, 1/0 CHECK - off, OFLOW - program 

2. Sense Switches 1 not used 

2 not used 

3 not used 

4 not used 

Typewriter 

Not used 
Loading Program 

1. Clear memory 310000300002 

2. INSTANT STOP, RESET, LOAD 
Order of Input 

1 . Program Deck 

2. Terrain Factor Card 
FAC1, FAC2 

3. Template Cards from Roadway Design/Volumes (21 cards) 
Z f BLSTA, YH(1), ZH(1) 

4. Terrain Cards (for 1 section) 

1, IBL, BLSTA, 1*1, IZ1, IY2, IZ2, IY3, IZ3, IY4 f IZ4, IY5, I 

5« Repeat 3 and 4 until complete 

6. End of Run Card, IT=2 

Special Instructions 

Input data must be collated before entering the program. Place 
terrain for each station after every 21st template card. The 
terrain for the last station may be discarded if no matching 
template is present. 

Restart Procedure 

1. INSTANT STOP, RESET, INSERT 4907500 

2. RELEASE, START 
Sorting and Listing Instructions 

No sorting necessary. List on an 80 column panel. 
Outpyrt List 

Terrain Card 

IT, ID, BLSTA, IY1, IZ1, IY2, IZ2, IY3, IZ3, 1Y4, IZ4, IY5, IZ5 
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DTM DESIGN SYSTEM ** MATERIALS CLASSIFICATION / PREPARATION ** 20 K 



J.H. SUHRBiER ** OCT. 26,1961 

REVISION NO. 2 ** J.H. SUHRBIER ** MARCH f 1962 

REVISION NO. 1 ** J.H. SUHRBIER ** DECEMBER » 1961 

DIMENSION YH(21)*ZH(21)*A{5)»B{5>»Y<25)*Z(25)*L<5>*LZ(5) 00001 

READ»FAC1 »FAC2 00002" 

READ* I T 00003 

1 READ* BLSTA, YH(1)» ZHll) 00004 
DO 101 1=2,21 00005 

101 READ* IT* BLSTA, YH( I } » ZH( 1 > 00006- 

NTP=1 00007 

2 READMIT 00008 
IFCIT-2) 3*33*33 00009* 

3 READ* ID*BLSTA 00010 
DO 32 M*l,5 00011 
READ*JY»JZ 00012 
T1«JY 00013 
Y(NTP)=T1*FAC1 00014 
T1*JZ 00015 
ZINTP)=T1*FAC2 00016 
IFtZ(NTP)) 31*32*31 00017 

31 NTP=NTP+1 000-18 

32 CONTINUE 00019 
GO TO 2 00020 

33 NTP=NTP-1 00021 
J=l 00022 
K=l 00023 
1=1 00024 
M=0 00025 
Ml*l 00026- 
N=0 00027 

4 IF(J-NTP) 6*8*20 00028 

6 IFHYH< I)-YC J) )*(YH( I)-Y<J + 1) > )11,11,7 00029 

7 IF l.M}8.8»10 )030 

8 A t K ) =Y( J) 1 0)031 
B(<)=Z(J) 00032 
IF<K-5 I 9,15,15 000 33 

9 K=K+1 00034 

10 J = J+1 00035 
GO TO 4 00036 

11 N=l 00037 
IF(M) 12*12*19 00038 

12 A(tO=Y<J> 00039 
B<K>=Z<J) 00040 
IFCK-5) 121*15*15 00041 

121 K=K+1 00042 

13 M1=0 O0043 
A(K)=YH(I> 00044 
B(K)=ZH(I) 00045 
IF< 1-21*14*18,18 00046 

14 IFOC-5) 16,15.15 00047 

15 I T=l 00048 
K=l 00049 
DO 152 K=l,5 00050 
T1=A(K)/FAC1 00051 
L(fO=Tl 00052 
T1*BIK)/FAC2 00053 
LZ(K)=T1 00054 

152 CONTINUE 00055» 
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PUNCH.IT.ID.BL.STA.Ll 1 ) tLZC 1 ) tL( 2 ) »CZ( 2) tL<3) »LZ ( 3 ) »L ( 4 ) . Ll < 4 ) . L t 5 ) .LZ < 5 ) 00056 



K=0 

IF(J-NTP) 151.1.1 



16 K*K+1 
1 = 1+1 



162 IFU-21) 13,13»161 



60 TO 4 
163 1*1 



IFCK-5) 181.15.15 
181 K=K+1 

GO TO 4 
19 J=J+1 



N=0 
GO TO 8 

20 AU>=0 
BlK)»0 

IFCK-5) 21.15.15 

21 K»K+1 

GO TO 20 
END 



00057 
00058 



151 IF(N) 9.9.16 00059 



00060 
00061 



IF* Ml) 162*162. 163 ooo6 2 



00063 



1^1 1=21 00064 



00065 
00066 



. 60 T0 162 00067 
X8 M=l 



00068 
00069 
00070 
00071 
00072 



ITS 00073 



00074 
00075 
00076 
00077 
00078 
00079 
00060 
00081 



© 
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MATERIALS CLASSIFICATION/VOLUMES 

The purpose of this program Is to compute the volume of material 
between two surfaces: "es-bullt" terrain and original terrain. Both 
terrains are defined by offsets from a baseline and elevations above 
sea level. The two terrains are collated before running. The resultant 
volumes can be those of a borrow pit, a stock pile, or classified 
materials on a roadway. 

Description 

Terrain data taken over the original ground Is given a card type 
1. Terrain data defining the "as-built" terrain has a card type of 2. After 
both type 1 and type 2 terrain have been read in and stored In memory, 
the edge points of the type 2 terrain are Interrogated to determine 
whether they are In cut or fill. Vertical slopes are then applied to the 
edge polr *. and Intersections with the terrain are computed. The area 
of the cross section and volumes are then computed and output. This 
program can be used for two special purposes, overlapping slope stakes 
and classified materials quantity computations, as well as the more 
general application to the computation of borrow pits, stock piles, and 
"as-built" quantities, such as Interchanges. 

The program has the facility to modify the 5 /card fixed point 
terrain by multiplication factors and the cut and fill volumes by cut 
and fill multiplication factors. Header cards are not used. A volume 
restart card with the same format as the volumes output card may. be used 
to initialize the volumes. Volumes are computed using baseline station 
numbers. 
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Operation 

Input to the Classified Materials/Volumes program is arranged so 
that an initial volumes card may be either read or not, depending upon 
the requirements of the user. Control is then transferred to a read 
statement which reads the template or terrain cards. Card type is sensed 
in order to distinguish the different cards being read. When the station 
number changes, the computations are begun. If the template is not in 
terrain, an error message is printed out, and control is returned to the 
general read statement. 

The template and terrain are stored as two tables in memory. Areas 
are computed between each. Template edge points are projected vertically 
upward or downward to intersect the terrain. Volumes are computed by the 
average end area method. No correction is made for curved alignment or 
center of gravity. Computations are completed when the program punches 
the areas volumes and mass haul information. 



MACRO FLOW DIAGRAM 
MATERIALS CLASSIFICATION / VOLUMES 



INITIALIZE 



READ A CARD 



UNLOAD TEMPLATE 
DATA 



IT=2 no 



UNLOAD TERRAIN 
DATA 



IT =1 



UNLOAD HEADER 
CARD 



IT =3 



HAS £ STA 
ADVANCED 



YES 



IS TEMPLATE 
IN TERRAIN 



NO 



YES 



IS END 
AREA = 0. 



YES 



COMPUTE END 
AREA 



COMPUTE 
VOLUMES 



i 



SUM VOLUMES 

i 



COMPUTE MASS 
HAUL 





PUNCH AREA, VOLUMES 




AND MASS HAUL INFO. 



ERROR MESSAGE 



o 
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MATERIALS CLASS IF I CAT I ON/VOLUMES 
OPERATING INSTRUCTIONS 

Console Switches 

1. PARITY - off, I/O CHECK - off, OFLOW - program 

2. Sense Switches 1 not used 

2 not used 

3 not used 
k not used 

Typewriter 

Not used 
Loading Program 

1 . Clear memory 310000300002 

2. INSTANT STOP, RESET, LOAD 
Order of Input 

1 . Program Deck 

2. Terrain Factor Card 
FAC1, FAC2 

3. Template Factor Card 
FAC3, FAC4 

k. Volume Multiplication Card 
CMUL, FMUL 

5. Volume Initialization (if used, branch to 7508) 
ID, BLSTA, CUTV, FILLV, CUMC, CUMF, HAUL 

6. Collated Template and Terrain Cards 

2, ID, BLSTA, IY1, IZt, IY2, IZ2, IY3, IZ3, IY*f, IZ*t, IY5, IZ5 
(up to 50 points on any one template) 

I, ID, BLSTA, IY1, IZ1, IY2, IZ2, 4Y3, IZ3, IY4, IZ*+, IY5, IZ5 
(up to 100 points on any one terrain) 

Special Instructions 

FAC1, FAC2, FAC3, and FACif govern the location of the decimal point 
on the horizontal and vertical input for the terrain and template 
respectively. Terrain data may be produced by the Materials 
Class if icat ion/Preparat ion program. 

Restart Procedure 

1. INSTANT STOP, RESET, INSERT i*907508 

2. RELEASE, START 
Sorting and Listing Instructions 

No sorting required. List with an 80 column panel. 

Output List 

ID, BLSTA, CUTV, FILLV, CUMC, CUMF, HAUL 
ID, BLSTA, CUTA, FILLA 
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10 

11 
39 

17 
16 

18 
26 

32 
30 



214 
215 

408 

409 
410 



20 



DTM DESIGN SYSTEM •* CLASSIFIED MATERIALS/VOLUMES *• 20 tC 
J. A. CURRIE »* MAY 15tl961 
REVISION NO* 2 »* JAC ** 12-19-61 
REVISION NO. 1 «# JAC 11-30-61 

DIMENSION YH< 50) *ZH( 50) *Y< 100)*Z(100)*YA(4)«ZA(4) 

INITIALIZE 

GO TO 5 

READ* JOB *SB*CUTV»F I LLV*CUMC* CUMF .HAUL 

GO TO 9 

JOB«0 

READvFACl »FAC2 »FAC3*FAC4*CMUL*FMUL 

KSW—1 

DEL5-0 

OFF»0 

H!H«0 

5KEWBM.0 

SKEW A* 1,0 

BCUTA-0 

BFILA-O 

I DA- JOB 

ISW«0 

SA-0 

NHPM 

NTP»1 

NSW»0 

JSW-0 

J«5 

I F( SENSE SWITCH 3)11.39 

READ* IT * ID»S*SKEWA 

READ»!T.ID*S 

1FUDA)17.16.17 

IF<iD-IDA)16.16*14 

IF< IT-2)18. 20*22 

TERRAIN READ SUBROUTINE 1T«1 

J-l 

IF<S-SA)32»30»32 
IF<SENSE SWITCH 2)218.37 
SA-S 
IDA«ID 

DO 215 MM, 5 

READ.JY.JZ 

T1«JY 

Y(NTP)«T1»FAC1 
Tl-JZ 

Z(NTP)«T1*FAC2 

IFIZINTP))214*215,214 

NTP-NTPM 

CONTINUE 

IF(Y(1)+Z(1) )409t 408*409 

NTPX«NTP 

GO TO 410 

NTPX«NTP-1 

MM 

ISWM 

KSW-KSW+1 

GO TO 10 

TEMPLATE READ SUBROUTINE IT«2 
J«2 

IF<KSW>26.24,7 



00001 

O0002 
00003 
00004 
00005 
00006 
00007 
00008 
0000* 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
0002* 
00027 
00028 

00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00043 
00046 
00047 
00048 
00049 
00050 

00051 
00052 



1 
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7 IF(SA) 14*21*24 00053 

24 IFC$-SA>40.26.25 00054 

25 IF<SENSE SWITCH 1)218*29 00055 
29 IF< ISW»38*38»218 00056 

21 SB*SA 00057 

26 SA-S 00058 
IDA*ID 00059 

116 DO 110 M«l*5 00060 
READ*JY*JZ 00061 
T1»JY 00062 
YH<NHP)»T1*FAC3 00063 
T1*JZ 00064 
ZH(NHP)*T1»FAC4 00065 
IF<ZH(NHP> ) 117*110*117 00066 

117 NHP*NHP+1 00067 
110 CONTINUE 00068 

IF( YH< 1)+ZH( 1) ) 407*406*407 00069 

406 NHPX=NHP 00070 
GO TO 119 00071 

407 NHPX=NHP-1 00072 
119 M*l 00073 

I5'W*0 00074 

IF(KSW>6*10*10 00075 

6 S8*SA 00076 

GO TO 10 00077 
C HEADER CARD IT»3 

22 J=3 00078 
IFCS-SA) 14*34*36 00079 

34 R£AD*CMUL»FMUL»DELS*OFF*HIH 00080 

ISW*0 00081 

GO TO 10 00082 
C CHECK FOR TEMPLATE NOT IN TERRAIN 

36 JSW*1 00083 
GO TO 218 00084 

37 IF( ISW>38.38.33 00085 
33 NSW*1 00086 

GO TO 219 00087 

217 NSW*2 00088 

218 J=4 00089 

219 IFtYHC 1)-Y< 1) )14*220»220 00090 

220 IF(Y(NTPX)-YH«NHPX))14. 222*222 * 00091 
C CHECK FOR ZERO END AREA 

222 IF(ZH(1 ) )300»224»300 00092 

224 FILLA»0 00093 

CUTA«0 00094 

GO TO 320 00095 
C ERROR MESSAGE 

40 IF( ISW) 14*38*217 00096 

13 j*2 00097 

14 IF(J-4) 12*38*12 00098 
12 PUNCH*J*IDtS 00099 

IF(J-4)8*26,10 00100 

38 PUNCH*J*IDA*SA 00101 
NHP-1 00102 
NTP*1 00103 
GO TO 26 00104 

C COMPUTATION ROUTINE 

300 FILLA*0 00105 

CUTA«0 00106 
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1=1 . 00107 

J=0 00108 ' 

IKE=0 00109 

301 J=J+1 00110 
IFIYU)-YH< I } >301 .500*302 00111 

302 1=1-1 00112 
J= J-l 00113 

303 1=1+1 00114 
DA=Z < J ) + ( ( Z ( J+l )-Z( J ) )*( YHI I )-Y(J) ) )/(Y(J+l)-Y(J) )-ZH( I ) 00115 
GO TO 502 00116 

500 DA=Z< J)-ZH( I ) 00117 

502 XA=YHU) 00118 

IF< IKE) 304*304*307 00119 

304 IKE=1 00120 

305 DB=DA 00121 
XB=XA 00122 
IF(YH( I+1)-Y(J+1) )303. 504*306 00123 

306 J=J+1 00124 
DA*Z< J)-( (ZH( 1 + 1)-ZH< I ) )*( Y( J)-YH( I ) ) )/( YHf 1 + 1 >-YH( 1 ) >-ZH< I ) 00125 
GO TO 506 00126 

504 J=J+1 00127 

1 = 1-1-1 00128 

DA*ZI J>-ZH< I ) 0012V 

506 XA*Y(J) 00130 

307 IF(DA*DB>309. 308*308 00131 

308 A1=0«5*<DA+DB)*(XA-XB) 00132 
GO TO 313 00133 

309 W=< XA-XB) / <2.*(DA-DB> ) 00134 
A1=-DB*DB»W 00135 
A2«DA*DA*W 00136 

310 IF(A2>311»313»312 00137 

311 Fl LLA=F I LLA+A2 00138 
GO TO 313 00139 

312 CUTA=CUTA+A2 00140 

313 IF< Al )314»315»315 00141 

314 F I LLA=F I LLA+A1 00142 
GO TO 317 00143 

315 CUTA=CUTA+A1 00144 
317 IF< I-NHPX) 305*320*320 00145 
320 DIST=SA-SB 00146 

J=4 00147 

IF< SA-SB) 14*323.321 00148 

321 CUTV=< <CUTA)*($KEwA)+t8CUTA)*(SKEWb> )*(DIST)/54. 00149 

FILLV=( (FILLA)*(SKEWA)+< 6FILA)*(SKEWB> )*JDlST>/54* 00150 

CUMC*CUMC+CUTV«CMUL 00151 

CUMF*CUMF+FILLV*FMUL 00152 

HAUL=CUMC+CUMF 00153 

PUNCH»IDA.SA*CUTV»F1LLV»CUMC»CUMF.HAUU 00154 

323 PUNCH»IDA.SA.CUTA.FILLA 00155 

IF«DELS)326. 328*326 00156 

326 PRINT»SA 00157 

SA=SA+DELS 00158 

PR1NT»SA 00159 

328 SB»SA 00160 

BCUTA=CUTA 00161 

BFILA»FILLA 00162 

SKEWA»SKEWB 00163 

NHP=1 00164 

N f P= 1 00165 

■ii \ 



JM 

1F(NSW-1>325.14.13 
325 IF< JSWU4.324»34 
324 IFt SENSE SWITCH 1)26*600 
600 IFCSENSE SWITCH 2)30.610 
610 60 TO 26 
END' 
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00166 
00167 
00168 
00169 
00170 
00171 
00172 
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COMBINED PLOT PROGRAM 

typo?? 

The purpose of this program !s jbo produce cards which when listed 
on the 407 Accounting Machine will produce plots of the ground profile, 
the slope stakes, or the mass-haul diagram, depending on the Input. 

Description 

This program deck contains programs for plotting the ground profile, 
the slope stakes, and the mass-haul diagram. The appropriate program fs 
selected by means of console switches and by the card type of the input 
cards. 

All of the programs use the same plotting routine, which Is actually 
a modified Fortran Output Subroutine. The output for each line of the 
plot is contained on two cards. The first card of the two card Sequence 
Is identified by a I in card column 1. 

The plots can he produced to any desired scales. Scale input consists 
of horizontal and vertical scales and datum elevation. Any reasonable 
datum will work because the plot will shift by 7 Inches If the 10- Inch 
limits of the plot are exceeded. Exaggerated horizontal or vertical scales 
can be obtained If desired. 

Profile P?ot 

Input to the profile plot is the offset cards (IT«5) from the 
Alignment Design/Offsets program. The center line station and three 
interpolated elevations are used In the production of the plot cards. On 
the plot, an L designates the elevation of the left offset, an R the 
right offset, and a C the center Tine. In cases where the R or C do not 
appear, they are the same as the L 
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Slope Stakes Plot 

The slope stakes plot is produced from the slope cards output from 
the Roadway Design/Volumes program. A ". M designates the centerline; a 
"C" or an "F M delineates the edge of a cut or fill slope. *n cases where 
the baseline Is not a straight line, the plot is merely a graphical 
indication of the distance from the baseline and the relation between the 
centerline and the slope limits. 

Mass-Haul Plot : 

The mass-haul plot is made from the volume output of the Roadway 
Design/Volumes program. The engineer should attempt to scale the plot 
so that it will be unnecessary for a shift to occur. Points above the 
zero cut-fill line are marked with a C; points below are marked with an 



MACRO 
COMBINED 



FLOW DIAGRAM 
PLOT PROGRAM 



! N t T ' A L 1 7 E 



READ 
HOR, VER, DATUM 



GENERAL READ 
READ, IT 



IT » 5 



READ OFFSET CARD 
IBL, STA, CLSF, OFF, 
ELEVF13), ELEVF12), ELEVF(I),AN6 



1ST TIME ONLY 



IT • 12 



READ VOLUME CARD 
BLS, CLSTA, CUTV, FILLV, 
CUMC, CUMF, HAUL 



IS SENSE SWITCH 
2 ON ? 



READ SLOPE CARD 
IBL, BLSTF, CLSTF, GRADE, ITYPL, 
ELEVF OhELEVFtZhELEVFO), ITYPR 



COMI 
START 


»UTE 
STATION. 


1 


SET Ul 
SYMI 


» PLOT 
10LS 



tS SENSE SWITCH 
I ON 



1ST TIME ONLY 



COMPUTE 
START STATION 



SET UP PLOT 
SYMBOLS 



PUNCH DATUM 
SUBROUTINE 



COMPUTE X 
INTERP DISTANCES 



ADDRESS 
SUBROUTINE 



DATUM 
CHECK SUBROUTINE 



PUNCH 
SUBROUTINE 



I^TIME ONLY 



COMPUTE 
START STATION 



SET UK KuUf 
SYMBOLS 



ADVANCE 
SUBROUTINE 



O 
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COMBINED PLOT PROGRAM 
OPERATING INSTRUCTIONS 



Console Switches 

1. PARITY - off, 1/0 CHECK - off, OFLOW - program 

2. Sense Switches 1 On - Slope Stakes Plot 

2 On - Mass Diagram Plot 

3 not used 
k not used 

Typewr i ter 

Not used 
Loading Program 

1. Clear Memory 310000300002 

2. INSTANT STOP, RESET , LOAD 
Order of Input 

1. Scales Card: H0R, VER , DATUM 

2. Input cards 

i: Plot Profile - Offset cards 

5, IBL, BLSTA, CLSTA, OFF, ELEVL, ELEVC , ELEVR , SKEW 

2. Plot Slope Stakes - Slope cards 

11, IBL, BLSTF , CLSTF, GRADE, ITYPL, 0FF(3) , 0FF(2), 0FF(l), ITYPR 

3* Plot Mass Diagram - Volume cards 

12, BLS , CLSTA, CUTV, FILLV, CUMC , CUMF , HAUL 

Special Instructions 

For input to the Plot Slope Stakes and Plot Mass Diagram, the type 11 
and type 12 cards may be either separated or intermixed. The plots 
are controlled by sense switches. 

Restart Procedure 

1 . To run a new plot 

INSTANT ST0P s RESET, INSERT 4907500, RELEASE, START 

2. To restart an existing plot 

INSTANT STOP, RESET, INSERT ^907500, RELEASE, START 

Sorting and Listing Instructions 

No sorting is required. List with the specially wired 407 
DTM Design System Plot Panel. 
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C DTM DESIGN SYSTEM ** COMBINED PLOTS/PROF 1LE/SLOPE STAGES/MASS HAUL ** 20K 

C N.W.BRYAN,P.O. ROBERTS 12 NOV 61 

C CORRECTION 2 * ALVARO VILLAVECES *'* MARCH 1962 

C CIVIL ENGINEERING SYSTEMS LABORATORY 

DIMENSION ELEVFO) .ELEV8 ( 3 > , I CD < 3 ) . I ADD ( 3 > . I SMB I 3 > 00001 
C INITIALIZE 
7500 M = 3 



N = 3 

ISW1=1 

ISW2=1 

ISW3=1 

ISW4=1 

ISW5=1 

C READ SCALES AND DATUM 

READ »H0R »VER» DATUM 
C COMPUTE SCALES 

HORI=HOR/2. 

VERI=VER/10. 

SHIFT=VER*7. 
C GENERAL READ 

100 READ » I T 

IF( 1T-11) 101.600.601 
C PROFILE PLOT 

C READ OFFSETS AND ELEVATIONS 

101 READ. IbL.STA.CLSF »OFF »ELEVF t 3) tELEVFl I) » ELE VF ( 1 ) ♦ ANG 
IF( ISW1-1 ) 400. 200. 400 

C ADVANCE SUBR. 

200 CLS TB= CLST F 
CLSB=CLSF 

DO 201 1=1, M 

201 ELEVBt I )=ELEVF ( I ) 

IF( ISW2-2J202.1OO.100 

202 ISMB(1>=59 
ISMB<2)=43 
I SMB( 31=53 
I SW1=2 
ISW2=2 

ISTAR=CLSF/HORI 
START=ISTAR 
CLS- ( ST ART*HOR I J+HORI 
C PUNCH DATUM SUBR. 

1 DAT=-ABS( DATUM) 
PUNCH, DAT 

1F( ISW3-2) 100,702.401 
C COMPUTE X INTERP. DISTANCES 

400 XN=CLSF-CLSB 
DX=CLS-CLSB 

IF (DX-XNJ401 ,401.200 
C ADDRESS SUBR» 

401 DO 411 J=1,M 
YN=ELEVF(J)-ElEVB*J) 
DZ=DX* ( YN/XN ) 
ELZ*ELEVB( J)+DZ 

IFl ISW4-1) 1002,4.1002 
4 ADDZ=ELZ-DATUM 
IADDZ=( ADDZ/VERI ) 
1ADD( J)*7311+IADDZ*2 
IF( J-2)403.402t3 

402 1F< ISW5-D412.412.90Q 



00002 
0009© 3 
00004 
00005 
00006 
00007 
00008 

00009 

00010 
00011 
00012 

00013 
00014 



00015 
00016 

00017 
00018 
00019 
00020 
0QQ2X, 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 

000 30 
00031 
00032 

00033 
00034 
00035 

00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
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4C2 IF( ISW5-1 )412*412»900 00045 

412 IEL=-ELZ 00046 

GO TO 403 00047 
C DATUM CHECK SUL'R. 

0003 ITE= IADOt 3)-IADD( 1 > 00048 

SPRITE 00049 

I F I ABS( SP)-210.)403, 2*2 00050 

0002 STOP 00051 

403 ISa3=3 00052- 
IF( IADDt J)-7331)407»407,404 00053 

404 IF( I ADD( JJ-7541 )403,409,409 00054 

405 I F( I ADD( J)-7429)406, 406,410 00055 

406 ICD(J>*1 00056 
GO TO 411 00057 

407 DAT'JN^DATUM-SHIFT 00058 
GO TO 1 00059 

409 DAT'J,V=DATUN: + SH1FT 00060 
GO TC 1 00061 

410 ICD(J)=2 00062 
IADD( J)=IADD( JJ-120 00063 

411 CONTINUE 00064 
C PUNCH SUBR. 

504 PUNCH, CLS 00065 

DO 501 I-1»N 00066 

IF( ICD( I >-l >501 ,500,501 00067 

500 PUNCH, I5MB< I ) » ICD( I ) » I ADD< I ) 00068 

501 CONTINUE 00069 
DO 503 I = 1»N 00070 
IF( ICD( I )-2) 503,502.503 00071 

502 PUNCH , I 5MB (1)»ICD(I)»1 ADD ( I ) 00072 

503 CONTINUE 00073 
510 PUNCH* I EL 00074 

CLS = CLS + riORI 00075 

GO TO 400 00076 
C SLOPE STAKE PLOT 

600 READ»IdL»BLSTF»CLSTF ,GRADt , I T YPL » ELE VF ( 3 ) ,El_EVF ( 2 , , ElEVF t 1 ) , I T YPR 00077 

DO 602 1=1*3 00078 

602 ELEVF( I )=-ELEVF( I ) 00079 

IFISENSE SWITCH 1)610,100 00080 

610 CLSF=3LSTF 00081 

IF( ISWl-1 ) 620,620 *o00 00082 

62C I S T AR = C LSF /HOR I 00083 

S T AR T= I S T AR 00084 

CLS=(START*HORI )+HORI 00085 

700 ISW1=2 00086 

ISW3=2 00087 

GO TO 1 00088 

702 ISW2=2 00089 
GO TO 200 00090 

703 ISW2=3 0^091 
C DETERMINE PLOTTING SYMiJOLS 

800 IF( ITYPR-3)802»801*S02 00092 

301 I 5K6 ( 1 ) -43 00093 

GO TO 803 00094 

802 ISMB<1)=46 00095 

803 IF( I TYPL-3) 805,804,805 00096 
304 ISMB(3)*43 00097 

GO TO 806 00098 

805 ISMB(3)=46 00099 



© 
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806 • ISMBC 2 ) =03 Q0100 

ISW5*2 00101 
C INTERPOLATE CLSTA 

GO TO 40U Q0102 

900 CLSTA=Cl_STB + SOR(DX*DX + DZ*DZ ) 00103 

IEL=-CLSTA 00104 

GO TO 403 U0105 
C MASS HAUL PLOT 

601 Rt AD »6L S »CLST A »CUT V » F I LL V » CUMC t CUMF t HAUL 00106 

I F ( SENSE SWITCH 2)1000»10J 00107 

1000 CLST F= BLS 00108 
CLSF=CLSTA 00109 
ELEVF ( 1 ) -HAUL 00110 
IF( ISW1-1J400. 1001*400 00111 

1001 ISTAR=CLSF/HORI 00112 
STAR T= I ST AR 00113 
CLS=HORI*(START+l . ) 00114 
ISW2=2 00115 
ISW4=2 00116 
I3MB(2)=44 00117 
M=l 00118 

1060 IDATU=10.*DATUM 00119 

IDAT=7311+IDATU*2 00120 

IF( 1DAT-7331 ) 1051 * 1051*1052 00121 

1051 IDAT=7333 00122 
GO TO 1053 00123 

1052 IF( IDAT-7341 J 1053 .1053,1034 00124 
1C54 IDAT=7541 00125 

1053 IADD(2)-IDAT 00126 
IF (DATUM-6. ) 1003* 1004, 1004 00127 

100 3 ICUf 2 ) - 1 QU.L2.fr 

GO TO 1005 00129 

1004 IADD(2 ) =IADD( 2 )-120 00130 
ICD(2)=2 00131 

1005 IF( ISWl-1 )400, 1070*400 00132 
1070 VERI=VERI«1000. 00133 

ISW1*2 00134 

GO TO 200 00135 

1002 IADOI*( ELZ/VFRI) 00136 
I ADD( 1 J - I DAT+ 1 ADD I *2 00137 
SPMDAT-IADDl 1 ) 00138 
IF( ABS< SPJ-210. ) 1020*1020,2 00139 

1020 IF( IADDl 1 )-7331)1006, 1007, 1007 00140 

1007 IF( IADD< D-7541) 1008,1008, 1009 00141 

1008 IF( IADD(l)-IDAT) 1010.1010.1011 00142 

1006 DATUM^D ATUM+ 1 • 00143 
GO TO 1060 00144 

1009 DAT UM= DATUM- 1 • 00145 
GO TO 1060 00146 

1010 ISM6<1)=46 00147 
GO TO 1012 00148 

1011 ISMB(1)=43 00149 

1012 I F ( I ADD { l)-7 42 9)1013. 1013.1014 00150 

1013 ICO(l)-l 00151 
GO TO 1015 00152 

1014 ICD(1)=2 00153 
I ADD (1)-IADD(1)-120 00154 

1015 PUNCH, CLS 00155 
DO 1016 J=l,2 00156 

r * 



o o 



IF( ICD( J)-l) 1016.1017,1016 

1017 PUNCH»ISMB( J) ,ICD< J> .IADDIJ) 
1016 CONTINUE 

00 1019 J-1,2 

IF( ICD( J J -2) 1019,1018,1019 

1018 PUNCH,ISMB< J) . ICD(J) , IADDt J) 

1019 CONTINUE 
1EL=-AdSF<ELZ)/1000. 
GO TO 510 

END 
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00157 
00158 
00159 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
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TEST PROBLEM 
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'28,000 129,000 130,000 131,000 132,000 



DTM 

TERRAIN DATA INPUT FORM 



CARD TYPE 



IT 



/ 



BASELINE NUMBER 



1BL 
4 6 



pRO.irr.T n-rm TgsT rkc p 

PAGF / nf 2 

RECORDED RY po* < TH-S 



BLSTA 

8 


16 


+ 

IS 


DIST 
19 22 


ELEV 
24 27 


± 
29 


DIST 
30 33 


ELEV 
35 38 


± 

40 


DIST 
41 44 


ELEV 
46 49 


± 

51 


DIST 
52 55 


ELEV 

57 60 


± 


DIST 

63 66 


ELEV 
68 7! 


/£> X<=><=> 


m j — 
j<? 








— 


3 9 c2 




- 








if .-■ 


/ ;L O O 




*fr c 






• o 






/ a 




- ^3 


/x k r 










c 


*P 




C 


^ • • . jj 


( Q 


1 ° 






/a ? ir 


- 






- 




/a ro 


- 




/ax r 




1 7 ^ 




/G> Y&C> 


|C 


-* 


x e o 


// & 5~ 


**- 
















y<? 












- 






— 


£> > 


/x > <r 


- 








*Z./ & 






X 00 




/a & &<r> 


1° 












IZo & 




y &c2 


ix&sr 










c> 




/<? <2<=>C/ 




- 






- 




ix y 








- 


6 Y6~ 


/z y >r 


— 


~3>/<Z> 




/<? Sc?c? 


1° 

1 G 






/X X & 


























/p £<=><=> 


1° 






/X Ve> 




G> 


























1 ° 


— 




/%€><=> 


— 


yXCP 


/Z*7c=> 


- 










^ <r 




^ 




/V<?©c> 


\a 






rx x 




/& 5~<Z> 


/Z V>T 
















O 




// 


|<p 


— 


/c>ac> 


/Z Fez 


— 






- 










/Z z r 










|o 






JZZ.T 




/& 3 O 






























szssr 


— * 




/XFo 






/ z sr x. 






tx v& 




v/c> 




/' <=> 








/X iTO 




'<P G><P 


/XST£~ 











& 














*- 


To 


tzzsr 












f^XJT 






/z?>c? 










|<P 








-4- 














O 












. o 






/x/ y 






txx-*> 






1 x / y 




X V<z> 












• <p 






/X6>> 






CP 







<~> 




Cr 






O 




























Z<?<=> 


//<?y 






/a.00 


/a <=> 


|<p 
1° 




ft 


/ZZS~ 












;jzy& 




O 




























/& 


/Zoo 


+ 


xxo 


/zxsr 










1^ 
































O 




f ^ 


















//&<=> 






//yr 








1 *'<^ 




r 












4- 


3Xo 


/xzsr 


4 




/X3o 


4 







NOTE: AH ierrcin cards must be complete. Finish lost cord of each tret son wi 



stance end elevations. 



PRfUFP.T HTM Te<;r ProS. 

PAGE_2__ of Z 

DATE 3^2/ 

RECORDED RY Xd<, ^ P^R 



BLSTA 

8 


16 


+ 


DIST 
19 22 


ELEV 
24 27 


± 

29 


DIST 
30 33 


ELEV 
35 38 


+ 

40 


DIST 
41 44 


ELEV 
46 49 


± 

51 


DIST 
52 55 


ELEV 
57 60 


± 

62 


DIST 
63 66 


ELEV 
68 71 


/2^o^ 


™l — 
jo 


— 






— 




//ft? 


— 


<SZ<z> 






JZ&o> 








/jLo <z> 


/Z£o^ 


i o 












/ZZf 












o 










1 ° 






//er 


— 




// >5" 


— 




//fr<=> 




frero 








//$-<=> 




.c 






// 






/Z&<=> 
















CD 


o 


/? 










— 










//^ 


~~ 






** 


Z><z> 


//5~o 




lO 






'/7T 




&■ ?><=> 


/Zoo 










e 






O 


o 




1 ^ 




SO "?<£> 










— 




/, 
















1 ^ 


































iO 




//a a 










— 










//?*> 










o 




Z?<? 




















o 










• o 






'/75~ 








* 




/P-ZF 






/Z?><2> 






































o 














e 








/Z 3Z. 










&zo 


jzztr 


























//*/£ 




/&JLo 






I ^ 












/z i r 




*7 &c=> 


fZ 




£~3o 












.£> 




f/o 


/zzr 






















<?<z>o 






l<p 






















O 


CP 










1^ 






/Z?><=> 
























/2ZG~ 


/'/Zoo 








'Zoo 


































/ZZ^ 






/Z.b<=> 










o 


<o 




o 


<o 




jo 




/S30 












L /r<s> 
















/Woo 








/Z2*r 












//ez. 










eio 


/zzr- 


/VY<?<? 


lO 










& 


O 




o 






o 


o 




cz 






1° 






7 






/Z >5~ 






/■2-<?t=> 










Z2o 






|0> 






/zzr 




F2& 


r 




7Y& 












o 





NOTE: AM terrain cards must be complete. Finish last card of each section with zero distances and elevations. 

© © © 



DTM 

TERRAIN DATA INPUT FORM 



CARD TYPE 



IT 



/ 



BASELINE NUMBER 



IBL 



& o / 



DTM 

PROJECT INPUT FORM 



ENGINEER T« H« Sf/tffffiiffi 
DATE Drifts 2 I, 



PROJECT nT-A1 Tg^r P^BLem 

SECTION / 



JOB NO.. 



.LENGTH. 



SOURCE MAPS PT(V\ T^-r Pf ^ gj. e:^ 



TERRAIN PREPARATION PHASE 



CONTOUR INTERVAL 


MAXIMUM SLOPE % 


MAXIMUM DISTANCE 
BETWEEN TERRAIN 






. flpo io 


OVERALL SYSTEM INPUT 








HORIZONTAL MULT. 
FACTOR 


VERTICAL MULT. 
FACTOR 


INPUT TO: 




l\o 



INPUT TO TERRAIN PREPARATION/EDIT PROGRAM 



ALIGNMENT DESIGN /OFFSETS PROGRAM 
ROADWAY DESIGN/ TEMPLATE PROGRAM 
MATERIALS CLASSIFICATION/PREPARATION PROGRAM 
MATERIALS CLASSIFICATION/ VOLUMES PROGRAM 



NOTE: UNLESS THESE FACTORS ARE 1.0 RELATED CRITERIA MUST BE ADJUSTED ACCORDINGLY 
ALIGNMENT DESIGN PHASE 



LEFT OFFSET 


t OFFSET 


RIGHT OFFSET 




a ! CD 





INPUT TO AUGMENT DESIGN/OFFSETS PROGRAM 



NOTE: OFFSETS ARE MINUS TO LEFT OF CENTERLINE 

INPUT TO COMBINED PLOT PROGRAM (PROFILE) 



HORIZONTAL SCALE 
FT/IN 


VERTICAL SCALE 
FT/ IN 


DATUM ELEVATION 
FT 


2.00 io 


"30 [ O 


/a go \ a 



ROADWAY DESIGN PHASE 



W10TH TO LEFT 


WIDTH TO RIGHT 







INPUT TO ROADWAY DESIGN/ PREPARATION PROGRAM 



NOTE: WIDTHS ARE MINUS TO LEFT OF CENTERLINE 



' KCRlZC'irAL SCALE 
1 FT/ iN 


OFFSET SCALE 
FT/ IN 


DATUM OFFSET 
FT 


INPUT TO COMBINED PLOT PROGRAM (SLOPES STAKES) 






- /5*oo 


NOTE: HORIZONTAL AND OF-SET SCALES SHOULD BE CONSISTENTLY TL iE SAME ON ALL PLOTS 


HORIZONTAL SCALE 
FT/ IN. 


VOLUMES SCALE 
1000 CU.YDS./ IN. 


ZERO LOCATION 
IN 


INPUT TO COMBINED PLOT PROGRAM {MASS HAUL DIAGRAM) 


2.oo\ c> 




4 Io 



NOTE: ZERO LOCATION" IS THE DISTANCE FROM THE LEFT MARGIN TO THE ZERO CUT-FILL LINE OF THE DIAGRAM 
MATERIALS CLASSIFICATION 



TEMP. HORIZONTAL 
FACTOR 


TEU'P. VERTICAL 
FACTOR 




Wo 




CUT MULTIPL. 
FACTOR 


FILL MULTtPL. 
FACTOR 




1 \o 



INPUT TO MATERIALS CLASSIFICATION/ VOLUMES PROGRAM 



INPUT TO MATERIALS CLASSIFICATION /VOLUMES PROGRAM 



© o 



DTM DESIGN SYSTEM ** TERRAIN PREPARATION / EDIT 001 

+25.00 +50*00 +500.00 002 

+1 +12600.00 -830.00 MISSED LOW POINT OR BAD DATA 003 

-1040.00 +1175.00 -830.00 +1150.00 -620.00 +1159.00 004 




,\-/ W I 

128,000 129,000 130,000 131,000 132,000 



c 



ENGINEER £0&_i_JQ£S 
DATE ,, 
PRn.iFr.T o-TM 7-est p, g a 



POINT 
NIUMRPR 


X 


Y 


ORIGIN STA. 

RAH II 13 OR 

TERMINUS 


DEGREE 
OF 

CURVATURE 


TANGENT 
DISTANCE 


EXTERNAL 
DISTANCE 


ZD / 










1 

© |<2> 






merer ^ 




tQ<?QQ\<? 
o o 


Q,0 


Q iQ 


o jo 


,/,0..,3 


(n/aes' jo 






O )<? 




<2 |S 


/O V 




/WW IO 


g jo 

??f?r? if? 


o \o 




o jo 






1 




1 


| 


| 




| 

/zayee jo 


ft* 66? \o, 








O lO 










9 \Q 




<? jo 


yo3 






e \<? 


Q |Q 


O jO 












« |Q 


O jO 


jO 








1 




j 


1 








| 


• 














• 
















j 


1 








| 


• 


1 


1 






| 


. 


| 


1 


1 






• 




• 


1 


1 




1 








1 








1 


1 










■ 


| 


1 






1 




1 




I 


j 


1 






! 


! 


• 


j 






















1 


| 






1 


1 










































































h- 














h- 

L, 


_ 1 




1 


1 


. L.„ 



NOTES: I. All points must have point numbers with appropriate & or numbers. 
2. A value of 999999.99 in the radius column terminates the line, 
i A value of 888888.88 in the radius column sets up an intermediate terminus. 



DTM 

ALIGNMENT DESIGN 
INPUT FORM 

HORIZONTAL GEOMETRY INPUT IT* 3 



o 



*3 

3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 



DTM 
ID 



DESIGN SYSTEM ** ALIGNMENT DESIGN / GEOMETRY OUTPUT 



101 
101 
102 
102 
103 
103 
104 
104 
401 
401 
402 
402 
403 
403 
404 
404 



XCOORD/PC 
128090.00 
100u0»000 
128785.00 
10761.002 
131885.00 
13376.464 
132700.00 
14719.552 
128700.00 
4350.0000 
129720.00 
4740.8473 
131375.00 
6557.4104 
132270.00 
8030.2117 



YCOOKD/PI 
143630.00 

loooo.ooo 

143940.00 
10761.002 
144250.00 
13876.463 
144475.00 
14719.552 
143665.00 
4350.0000 
144185.00 
549-4.9016 
143765.00 
7136.644b 
143945.00 
8030.2117 



RADIUS/PT 
10000. OCO 
10000.000 
•00000000 
10761.002 
5878.7636 
14374.063 
999999.99 
14719.552 
4350.0000 
4350.0000 
2003.3489 
6183.2377 
2548.3600 
7696.5255 
999999.99 
8030.2117 



DEGCUR/AZ 
•00000000 
65.961073 
•00000000 
84.289415 
•97462293 



TAN/ ANGLE 
•00000000 
•00000000 
•00000000 
18.328341 
499.99999 



74.566584 -9.7228303 



•OOOOOOOO 
62.987342 
2.8600000 
104.23971 
2.2483393 



.00000000 
•OOOOOOOO 
754.05432 
41.252366 
579.23446 



78.628534 -25.611174 



EXT/CURVLGTH 

•OOOOOOOO 

•OOOOOOOO 

•OOOOOOOO 

•OOOOOOOO 

21.224689 

997.59917 



•OOOOOOOO 
•OOOOOOOO 
137*21277 
1442.3904 
64.999999 
1139. 1151 



* 

*5 IBL 



DTM DESIGN 
BL STA 

10600.000 
10800.000 
11000.000 
11200.000 
11400.000 
11600.000 
11800.000 
12000.000 
12200.000 
12400.000 
12600.000 
12800.000 
13000.000 
13200.000 
13400.000 
13600.000 
13800.000 
14000.000 



SYSTEM ** 
CL STA 

4378.6972 
4512.0154 
4726.6844 
4937. 8tf 30 
5143.0143 
5344.5801 
5544.7066 

5745.4184 
5948.8090 

6157.1963 
6369.9057 
6582.6149 
6791.8404 
6996.6617 
7200.1047 
7413.8002 
7627.3297 
7840.8175 



ALIGNMENT 
OFFSET 
215.03586 
206.32817 

128.34123 
60.742000 
15.546800 
"8.7202000 
-12.817100 
3.1269000 
39.606600 
97.808600 
170.23324 
242.70670 
303.97170 
347.85900 
375.45900 
391.49020 
396.89180 
395.73786 



DESIGN 
LEFT 
1201. 
1208. 
1219. 
1233. 
1241. 
1226. 
1219. 

1208. 
1208. 

1205. 
1200. 
1189. 
1168. 
1143. 
1148. 
1196. 
1226. 
1230. 



/ OFFSETS 

ELEV CL 
1592 



7604 
9161 
1836 
3548 
2262 
7848 
9808 
1779 
4397 
1846 
4652 
2035 
4589 
2455 
0106 
3377 
7878 



1199 
1206 
1218 
1230 
1240 
1227 
1220 
1210 
1210 
1208 
1201 
1191 
1169 
1 144 
1147 
1193 
1226 
1229 



OUTPUT 
ELEV 
.4432 

• 4795 

.2573 
.6613 

• 4415 
.3498 

• 4033 

• 8046 

• 9067 

.1673 
.8287 
.1654 
.3909 

• 1105 . 

• 0765 

• 6466 

• 0060 

• 6839 



RIGHT ELEV 
1198.1822 
1204.1987 

1216.5985 
1228.1391 
1239.5281 

1228.4735 
1221.0217 
1212.6284 
1213.6356 
1210.8948 
1203*4729 
1192.8655 
1170.5783 
1144.7621 
1145.9075 
1191.2825 
1225.6743 
1228.5800 



SKEW 
•998653 
•931678 

•931678 
.962848 
•985407 
.997520 
.999565 
.991606 
.973396 
.944344 
.93^989 
•943317 
.967358 
•984581 
•995003 
•998 741 
•999999 
•999973 



otm design System profile plot 



1 4400.000 

I 4500.000 

I 4600.000 

I 4700.000 

I 4800.000 

I 4900.000 

I 5000.000 

I 5100.000 

I 5200.000 

I 5300.000 

I 5400.000 

I 5500.000 

I 5600.000 

I 5700.000 

I 5600.000 

1 5900.000 

1 6000.000 

I 6100.000 

1 6200.000 

I 6300.000 

I 6400.000 

I 6500.000 

! 6600.000 

I 6700.000 

I 6600.000 

I 6900 .000 

I 7000*000 

I 7100.000 

I 7200.000 

I 7300.000 

1 7400.000 

I 7500.000 

I 7600.000 

1 7700.000 

I 7600.000 



DATUM ■ 10000000 



CL 




Pt. Mb. 501 



Cr*-rr* {.iNC 
Pro 



LC 



LC 



LC 
L 

RL 



RL 




Pt. Wo. SOZ 
CuAvr Lw*+t# m 75*0. 



M*AJ7~ A/a. 5" 



Pt. No. 5*03 



1200 
1203 
1211 
1216 
1222 
1228 
1233 
1236 
1236 
1230 
1225 
1221 
1217 
1212 
1210 
1210 
1210 

1208 
1206 

1203 
1200 
1195 
1 189 
1178 
1168 
1156 
1144 
1145 
1147 
1168 
1190 
1206 
1221 
1227 
1228 



ROADWAY DESIGN DATE /6\ 

iMni.-r xrr,^ i PROJECT DT M Tk*r P^s e 
INPUT FORM 1 



VERTICAL GEOMETRY INPUT IT»6 



POINT 
NO. 


STATION 
VPI 


ELEVATION 
VPI 


CURVE 
LENGTH 


5©/ • 




1 

/A Q 3, j 9 


Q—LSL 


ftf ft 




// 9 O \Q 




.To 3 






?9t?¥T iff 












1 — 


1 


1 




1 — 


1 


1 — 

1 — 




1 — 


1 


__| — 




1 — 


1 


1 — 




1 — 


1 


1 — 




1 — 


1 


1 — 




— ; 1 — 


1 

1 


1 — 




1 — 


1 


1 — 




1 — 








1 — 


1 

1 


1 — 

1 — 




1 — 

1 — 


1 


J — 






1 


1 — 




1 — 




1 — 




1 — 


: — | — 

1 — 






1 — 




J — 



























































































NOTE: Indicate terminus with 999999.99 in 
CURVE LENGTH column. 




DTM 

ROADWAY DESIGN 
INPUT FORM 2 



ENGINEER p^e * t-j^ 
PRO J P* T °™ Tg « y r> "' 



CRHI 



SLOPE 
CRITERION 



FLL O (4) w 




DYTIE 



GEOMETRY LINE 
PROFILE GRAOE 



-V 



TYPIC A L 



+ Z 



+Y 



-Z 



SECTION 



NOTE To fill in input form start at & and work both ways. 
Sign convention is as shown. DYTIE and DZTIE are 




LEFT SLOPES 



ADDITIONAL PARAMETERS IT«9 



RIGHT SLOPES 



CLLO 


CLH 1 


CCL 


DYTIE 


OZTIE 


CCR 


CRM 1 


CRLO 


V 1 




f'O 1 a 


!o 


- / |o 


" I 

/o ;o 


- 1 \o 


- H io 


FLLO 


FLH 1 


FCL 


FMUL 


CMUL 


FOR 


FRH 1 


FR LO 


V 1 O 


2. 1 O 


"1 


_ / \ZS 


/ !p 


T" 

/£> | O 


1 


- y 1 


TEMPLATE SEGMENTS IT « 7 


DY 


OZ 


OY 


OZ 


DY 


DZ 


DY 


OZ 


. w 


r# ,- 


& 


n# 


- £ 1 © / \o 


— V l / 1 




C ! C 


— / O O iO 






1 w . 




~ 2 1 Q 


/ iO 


— a. 10 


- / 1 


""OIO 10 




10 


r-^ r- 






. w 


~ P lOl O |Q 




- 01a 


/ A 1 O -Oi/ 


~~ / ft 1 C> CI/ 


G3) 






OS 






- Vi^ / 1 






(!§) 


I <"> 










1 a 








! w 


/ 10 CIC 


1 , O 


a ! - / ! 






(29 




/jo 1 \ a \& |c 


y 1 O / J <S 





TEMPLATE 



CHANGES 



XT *8 



SEG. NO. 


START STA. 


END STA. 


NEW OY 


NEW OZ 


/V 


-7 35-0 J D 






/ 




/ " 






ft |^ 


/ 




















U- 












1— 




















h- 




















1 












1 











VOLUME START IT»I2 



BLSTA 


CLSTA 


CUTV 


F ILLV 


CUMC 


CUMF 


HAUL 




J <^ 


a \& 




3/5" jc 







DTM DESIGN SYSTEM ** ROADWAY DESIGN / PREPARATION OUTPUT 
COLLATED TEMPLATE AND TERRAIN WHICH FOLLOWS MAY BE USED AS INPUT TC TE 
PROGRAM IN PLACE OF HAND COLLATED DECK' 

•OOOOOOOO •OQOOOOOO •oooooooo 
-440 1250 -210 1225 200 1200 
700 1225 1000 1240 
•OOOOOOOO .00000000 -00000000 
-760 1280 "645 1275 -310 1250 

400 1198 470 1200 730 1225 



•oooooooo .oooooooo 

-250 1250 -20 1225 


•OOOOOOOO .00000000 
-210 1250 140 1225 


•OOOOOOOO .00000000 
-750 1252 -270 1248 


•OOOOOOOO .OOOOOOOO 
-240 1225 -160 1220 
980 1260 
•OOOOOOOO .OOOOOOOO 
-200 1217 240 1225 


•OOOOOOOO .00000000 
-380 1200 -290 1197 
960 1270 
•OOOOOOOO .OOOOOOOO 
-100 1200 220 1225 


•OOOOOOOO .00000000 .OOOOOOOO 
-720 1180 -530 1175 -450 1170 
320 1225 640 1230 980 1235 
•OOOOOOOO .00000000 .OOOOOOOO 
-620 1159 -260 1175 130 1200 
990 1230 
.OOOOOOOO . OOOOOOOO .OOOOOOOO 
-550 1140 -520 1150 -100 1175 

•OOOOOOOO .OOOOOOOO 
-450 1145 -270 1150 

•OOOOOOOO . OOOOOOOO 
660 1150 
•OOOOOOOO 
290 1150 


•OOOOOOOO 
490 1230 -320 1225 
1060 1140 
•OOOOOOOO • OOOOOOOO -00000000 
90 1229 500 1225 670 1200 
980 1148 1020 1150 

•OOOOOOOO .OOOOOOOO 
540 1225 650 1200 
1020 1190 



10600.000 


4378. 


6972 


215. 


03586 


10600 .000 


-1060 


1290 


-670 


1275 


10600 .000 


335 


1195 


465 


1200 


10800.000 


4512.0154 


206. 


32817 


10800.000 


-1025 


1265 


-880 


1275 


10800.000 


-90 . 1225 


310 


1200 


10800 .000 


1080 


1240 








11000.000 


4726. 


6844 


128. 


34123 


11000.000 


-1040 


1260 


-720 


1270 


11000.000 


640 


1225 


1050 


1245 


11200.000 


4937. 


8830 


60.742000 


11200.000 


-1020 


1250 


-610 


1260 


11200.000 


550 


1225 


1030 


12 50 


11400.000 


5143.0143 


15. 546800 


11400.000 


-1050 


1235 


-850 


1250 


1 1400. OUO 


960 


1250 


1000 


1255 


11600.000 


5344. 


5801 


-8.7202000 


11600. OOC 


-1050 


1225 


-760 


1237 


11600.000 


375 


1240 


850 


1250 


11800.000 


5544. 


7066 


-12.817100 


11800.000 


-1060 


1217 


-675 


1223 


11800.000 


960 


1267 








12000.000 


5745.4184 


3. 1269000' 


12000.000 


-1060 


1200 


-780 


1210 


12000.000 


270 


1225 


460 


1250 


12200. OOC 


5948. 


8090 


39.606600 


12200.000 


-1050 


1 185 


-340 


1180 


12200.000 


960 


1260 








12400.000 


6157. 


1963 


97.808600 


12400.000 


-1050 


1170 


-900 


1175 


12400.000 


-380 


1175 


-10 


1200 


12600.000 


6369. 


9057 


170. 


23324 


12600.000 


-1040 


1175 


-830 


1150 


12600.000 


570 


1220 


930 


122 5 


12800.000 


6582. 


6149 


242. 


70670 


12800.000 


-900 


1175 


-590 


1150 


12800.000 


430 


1200 


1000 


1220 


13000.000 


6791. 


8404 


303. 


97170 


13000.000 


-990 


1175 


-590 


1150 


13000.000 


830 


1200 


1030 


1205 


13200.000 


6996. 


6617 


347. 


85900 


13200.000 


-800 


1150 


-410 


1149 


13400.000 


7200. 


1047 


375. 


45900 


13400.000 


-730 


1175 


-490 


1190 


13400.000 


1060 


1140 








13600.000 


7413. 


8002 


391. 


49020 


13600.000 


-920 


1200 


-660 


1225 


13600.000 


660 


1175 


880 


U50 


13800.000 


7627. 


3297 


396. 


89180 


13800.000 


-830 


1225 


-410 


1232 


13800.000 


830 


1175 


9 30 


1150 


14000.000 


7840. 


8175 


395. 


73786 


14000.000 


-780 


1250 


-530 


1255 


14000.000 


750 


1175 


8 30 


1155 



MPLATE 
998653 



• OOOOOOOO 
310 1210 

•OOOOOOOO 
370 1220 

•OOOOOOOp 
410 1230 

•OOOOOOOO 
-80 1225 

•OOOOOOOO 
550 1250 

•OOOOOOOO 
-200 1200 

•OOOOOOOO 
560 1250 



130 1140 
•OOOOOOOO 
-250 1175 

•OOOOOOOO 



•OOOOOOOO 
470 1175 

•OOOOOOOO 
1050 1170 
•OOOOOOOO 
670 1137 

•OOOOOOOO 
300 1200, 



OOOOOOOO 
30 1250 
1175 



900 



DTM DESIGN SYSTEM ** ROADWAY DESIGN / TEMPLATE 
OUTPUT FROM THIS PROGRAM (WITH THE EXCEPTION OF THE 
GEOMETRY OUTPUT* CARD TYPE 10) IS USED AS PASS ON DATA 
TO Rf ADWAY DESIGN/VOLUMES. 



VER' ICAL GEOMETR 
ST/ VPC ELEV 
GRAJE AHEAD 
•00565217 
6375.0000 1192*1 
•C3750000 



10 
10 
10 
10 
10 
1 

2.0000000 

4.0000000 

2.0000000 

4.0000000 

10.000000 

10.000000 

10.000000 

10.000000 

4.0000000 

2.0000000 

4.0000000 

2.0000000 

.00000000 

1.0000000 

1.2500000 

1.0000000 

2 1 10600.000 

3 

1060.0000 
210.00000 
465.00000 
2.0000000 
.00000000 
2.0000000 
.00000000 
.00000000 



VPC STA VPI ELEV VP I STA VPT ELEV VPT CURV LENG 
195 6750.0000 1190.0000 7125.0000 1204.0625 750.00000 



4378.6972 215.03586 1203.0000 .99865300 9 -1 



1290.0000 
1225.0000 
1200.0000 
1.0000000 
.00000000 
1.0000000 
•OUOOOOOO 
.00000000 



-12.000000 -.10000000 



•6.0000000 
4.0000000 
12.000000 



.20000000 
1.0000000 
•10000000 



6.0000000 -.20000000 
1.0000000 .00000000 
2.0000000 -1.0000000 
1 .0000000 .00000000 
4.0000000 1.0000000 
2 1 10800.000 4512 
3 

-1025.0000 
-645.00000 

310.00000 

730.00000 



1265.0000 
1275.0000 

1200.0000 
1225.0000 



-670.00000 
200.00000 
700.00000 
-4.0000000 
-1.0000000 
-2.0000000 
-1.0000000 
-6.0000000 
-12.000000 
-4.0000000 
6.0000000 
12.000000 

.00000000 
.00000000 
2.0000000 
.00000000 
2.0000000 
.0154 206 

-880.00000 
-310.00000 



1275.0000 
1200.0000 
1225.0000 
1.0000000 
.00000000 
-1.0000000 
.00000000 
-.20000000 
.10000000 
1.0000000 
.20000000 
-. 10000000 
.00000000 
.00000000 
1.0000000 
.00000000 
1.0000000. 
.32817 1202.6494 



-440.00000 
335.00000 
1000.0000 



1250.0000 
1195.0000 
1240.0000 



.93167800 11 2 



400.00000 
1080.0000 
11000.000 4726.6844 128 



2 
3 

■1040.0000 1260.0000 -720.00000 
•20.000000 1225.0000 310.00000 
1050.0000 1245.0000 .00000000 
2 1 11200.000 4937.8830 60. 



1275.0000 -760.00000 1280.0000 
1250.0000 -90.000000 1225.0000 

1198.0000 470.00000 1200.0000 
1240.0000 .00000000 .00000000 
•34123 1201.4361 .93167800 7 2 

1270.0000 -250*00000 1250.0000 
1210.0000 640.00000 1225.0000 
.00000000 .00000000 .00000000 
742000 1200.2424 .96284800 7 2 




3 

1020.0000 1250.0000 -610.00000 1260.0000 -210.00000 1250.0000 
140.00000 1225.0000 370.00000 1220.0000 550.00000 1225.0000 
1030.0000 1250.0000 .00000000 .00000000 .00000000 .00C00000 
2 1 11400.000 5143.0143 15.546800 1199.0829 .98540700 7 2 
3 

1050.0000 1235.0000 -850.00000 1250.0000 -750.00000 1252.0000 
270.00000 1248.0000 410.00000 1230.0000 960.00000 1250.0000 
1000.0000 1255.0000 .00000000 .00000000 .00000000 .00000000 
2 1 11600.000 5344.5801 -8.7202000 1197.9436 .99752000 8 2 
3 

1050.0000 1225.0000 -760.00Q00 1237.0000 -240.00000 1225.0000 
160.00000 1220.0000 -80.000000 U25.0000 375.00000 1240.0000 
850.00000 1250.0000 980.00000 12"60.0000 .00000000 .00000000 
2 1 11800.000 5544.7066 -12.817100 1196.8125 .99956500 6 2 
3 

1060.0000 1217.0000 -675.00000 1223.0000 -200.00000 1217.0000 
240.00000 1225.0000 550.00000 . 1250.0000 960.00000 1267.0000 
2 1 12000.000 5745.4184 3. 1269000 1195.6780 .99160600 8 2 

3 

1060.0000 1200.0000 -780.00000 1210.0000 -380*00000 1200.0000 
290.00000 1197.0000 -200.00000 1200.0000 270.00000 1225.0000 
460.00000 1250.0000 ' 960.00000 1270.0000 .00000000 .00000000 
2 1 12200.000 5948.8090 39.606600 1194.5284 .97339600 6 2 
3 

1050.0000 1185.0000-340.00000 1180.0000 -100.00000 1200.0000 
220.00000 1225.0000 560.00000 1250.0000 960.00000 1260.0000 
2 1 12400.000 6157.1963 97.808600 1193.3506 .94434400 10 < 
3 

1050.0000 1170.0000 -900.00000 1175.0000 -720.00000 1180.0000 
530.00000 1175.0000 -450.00000 1170.0000 -380*00000 1175.0000 
10.000000 1200.0000 320.00000 1225.0000 640.00000 1230.0000 
980.00000 1235.0000 .00000000 .00000000 .00000000 .00000000 
2 1 12600.000 6369.9057 170.23324 1192.1483 .93998900 8 2 
3 

1040.0000 1175.0000 -830.00000 1150.0000 -620*00000 1159.0000 
260.00000 1175.0000 130.00000 1200.0000 570.00000 1220.0000 
930.00000 1225.0000 990.00000 1230.0000 .00000000 .00000000 
2 1 12800.000 6582.6149 242.70670 1192.1861 .94331700 7 2 
3 

900.00000 1175.0000 -590.00000 1150.0000 -550.00000 1140.0000 
520.00000 1150.0000 -100.00000 1175.0000 430.00000 1200.0000 
1000.0000 1220.0000 .00000000 .00000000 .00000000 .00000000 
2 1 13000.000 6791,8404 303,97170 1194.7621 .96735800 7 2 

3 

990.00000 1175.0000 -590.00000 1150.0000 -450.00000 1145.0000 
270.00000 1150.0000 470.00000 1175.0000 830.00000 1200.0000 
1030.0000 1205.0000 .00000000 .00000000 .00000000 .00000000 
2 1 13200.000 6996.6617 347.85900* 1199.7236 .98458100 5 2 

3 

800.00000 1150.0000 -410.00000 1149.0000 130.00000 1140.0000 
660.00000 1150.0000 1050.0000 1170.0000 .00000000 .00000000 
2 1 13400.000 7200.1047 375.45900 1206.8790 .99500300 6 2 
3 

730.00000 1175.'0000 -490.00000 1190.0000 -250.00000 1175.0000 
290.00000 1150.0000 670.00000 1137. OOOQ 1060.0000 1140.0000 
2 1 13600.000 7413.8002 391.49020 1214.8926 .99874100 8 1 
3 

920.00000 1200.0000 -660.00000. 1225.0000 -490.00000 1230.0000 



OTM DESIGN SYSTEM ** ROADWAY DESIGN / VOLUMES 



# 

*11 ID BL STA 

11 1 10600.000 

11 1 10800.000 

11 1 11000.000 

11 1 11200.000 

11 1 11400.000 

11 1 11600.000 

11 1 11800.000 

11 1 12000.000 

11 1 12200.000 

11 1 12400.000 

11 1 12600.000 

11 1 12800.000 

11 1 13000.000 

11 1 13200.000 

11 1 13400.000 

11 1 13600.000 

11 1 13800.000 
♦12 BL STA 

12 10600.000 
12 10600.000 
12 11000.000 
12 11200.000 
12 11400.000 
12 11600.000 
12 11800.000 
12 12000.000 
12 12200.000 
12 12400.000 
12 12600.000 
12 12800.000 
12 13000.000 
12 13200.000 
12 13400.000 
12 13600.000 
12 13800.000 



CL STA 
4378.6972 
4512.0154 
4726.6844 
4937.8830 
5143.0143 
5344.5801 
5544.7066 
5745.4184 
5948.8090 
6157.1963 
6369.9057 
6582.6149 
6791.8404 
6996.6617 
7200.1047 
7413.8002 
7627.3297 
CL STA 
4378.6972 
4512.0154 
4726.6844 
4937.8830 
5143.0143 
5344. 5801 
5544.7066 
5745.4184 
5948.8090 
6157. 1963 
6369,9057 
6582.6149 
6791.8404 
6996.6617 
7200. 1047 
7413.8002 
7627. 3297 



rrsur oKHL/t 


• 

L 


oLUrb 5TK 


CL OFFSET 


SLOPE STK 


R 


1 dO 3 . 0000 


4 


168.62563 


215.03566 


281 


•14844 


4 


1202. 6494 


3 


119.30695 


206.32817 


256.52823 


3 


1201.4361 


3 


35 .994689 


128. 34123 


204 


.12452 


3 


1200.2424 


3 


-67 • 110373 


60.742000 


157 


•08975 


3 


1199.0829 


3 


-120. 34780 


15.546800 


137 


•58390 


3 


1197. 9436 


3 


-104.06134 


-8.7202000 


101 


•64314 


3 


1196.8125 


3 


-100.83623 


-12.817100 


81. 


848008 


3 


1195.6780 


3 


-64.500247 


3. 1269000 


87. 


008934 


3 


1194.5284 


3 


-45.558696 


39.606600 


133 


•53921 


3 


1193.3506 


3 


15.020215 


97.808600 


190 


•68276 


3 


1192.1483 


3 


98.583560 


170.23324 


244 


.85625 


3 


1192. 1861 


4 


181.63994 


242.70670 


295 


.60241 


3 


1194.7621 


4 


202.01197 


303.97170 


392 


.61784 


4 


1199.7236 


4 


187.08699 


347.85900 


496 


.76224 


4 


1206.8790 


4 


225.88954 


375.45900 


548 


.78986 


4 


1214.8926 


4 


316.97676 


391.49020 


490 


•07464 


4 


1222.8999 


3 


334.01396 


396.89180 


455 


•04663 


3 



CUT VOL FILL VOL 
.000 00000 .00000000 
1130.2960 -901.29281 
10040.310 -.95298735 

00000000 



26278.240 
44553.503 
42561 .888 
27844.094 
18594.221 
14958.418 
15622.285 
11728.548 
4342.2381 
62. 546551 
.00000000 
00000000 



.00000000 
.00000000 
.00000000 
.00000000 
.00000000 
.00000000 
.00000000 
-507. 72448 
-13668.438 
-53754.976 
-86185.450 



.00000000 -58893.204 
1327.6829 -10989.519 



ACUM CUT ACUM FILL MASS HAUL 
315.00000 -420.00000 -105.00000 
1445.2960 -1546.6160 -101.32000 
11485.606 -1547.8072 9937.7990 
37763.846 -1547.8072 36216.039 
82317.349 -1547.8072 80769.542 
124879.23 -1547.8072 123331.43 
152723.32 -1547.8072 151175.52 
171317.54 -1547.8072 169769.74 
186275.95 -1547.8072 184728.15 
201898.23 -1547.8072 200350.43 
213626.77 -1547.8072 212076.97 
217969.00 -2182.4628 215786.54 
218031.54 -19268.010 198763.53 
218031.54 -86461.733 131569.81 
218031.54 -194193.54 23838.000 
218031.54 -267810.04 -49778.500 
219359.22 -281546.93 -62187.710 



DTM DESIGN SYSTEM ** SLOPE STAKES PLOT 



I 1070.000 
I 1U80.000 
1 1090.000 
I 1100.000 
I 1110.000 
I 1120.000 
I 1130.000 
I 1140.000 
I 1150.000 
I 1160.000 
I 1170.000 
1 1180.000 
J 1190.000 
1 1200.000 
I 1210.000 
I 1220.000 
I 123C.0C0 
I 1240.000 
I 1250.000 
r 1260.000 
I 1270.000 
I 1280.000 
I 1290.000 
I 1300.000 
1 1310.000 
I 1320.000 
I 1330.000 
1 1340.000 
r 1350.000 
I 1360.000 
I 1370.000 
I 1380.000 



DATUM = 15000000 



c . c 
c . c 
c . c 
c . c 
c . c 



c . c 

c . c 

c . c 

c . c 

c . c 

c . c 

C . G 

c . c 
c . c 
c . c 



c . c 
c . c 
c . c 

C . F 



C . F 
F . F 

F . F * 

F 



4478 
4576 
4619 
4726 
4832 
4937 
5040 
5142 
5243 
5 344 
5444 
5 544 
5645 

5745 

5847 

5 94d 

6052 

6157 

6263 

6369 

6476 

6582 

6687 

6791 

6894 

6996 

7097 

7198 

7 300 



c • c 



c . c 



7613 



I 4400.000 

I 4500.000 

I 4600*000 

I 4700.000 

I 4800.000 

I 490f).000 

I 5000.000 

I 5100.000 



I 5300. 00t> 

I 5400.000 

I 5500.000 

I 5600.000 

I 5700.000 

I 5800.000 

I 5900.000 

I 6000*000 

I 6100.000 



I 6500.000 



OTM DESIGN SYSTEM ** MASS HAUL PLOT 



D 


DC 

D C 
D C 
D C 



D 



I 6200.000 
I 6300.000 

I 6400. GuO 



I 6700.000 

I 6800.000 

I 6900.000 D 

I 7000.000 D 

I 7100.000 D 

I 7200.000 D C 

I 7300.000 F D 

I 7400.000 F o 

I 7500.000 F D 

7600.000 * f D 



19 



31 



49 



DC 71 
I 5200.000 c 



92 
113 

C 131 

D C U4 

D C 156 



173 



y C 202 

C 20b 

C 212 



u C 214 

I 6600.000 D C 214 



C 206 
C 196 

163 
129 
76 
23 
10 



54 
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DAT E 3 I'** 1 fa 2- 

RECORDED BY__~S±L2 



BLSTA 

8 16 


+ 

16 


□ 1ST 
19 22 


ELEV 
24 27 


+ 
29 


DIST 
30 33 


ELEV 
35 38 


+ 

40 


DIST 
41 44 


El EV 
46 49 


+ 

51 


DIST 

Wis? • 

52 55 


ELEV 
57 60 


+ 

62 


DIST 
63 66 


ELEV 
68 71 


ICbCCJQ 


— 


( cor.- 




„ , 










I 1*8? 


+ 


C> 


nor 






1 1 ^<r 


t C> toe i C: 




foe 


III-? 








T 


i o oo 






o 


o 






r 


j G 


— 


i o co 




- 


Too 




+ 


6 


S ( ?6 




^ G 


111? 




TOO 


\ \ Lc 








1 c- o 




C 






c 






C 













\ \ Occ\ G 


— 


i o co 


12l2r 


— 


SCO 




- 




l 7. 




c 


UV7 


+ 








+ 


<foo 


) l SI 




1 ooo 















c 






c 


(I TOO j c 








- 


?GC 




- 








o 




4- 












\»<t<r 




1 CO 








G 




O 









o 


l\Ar,r. . 




1 C CC 






Sec 




- 








6 






S~0c 


n 13 




+ 


Idee 






6 












. C 


O 










i JUofij a 


- 








?GC 




- 








ft 




+ 






II Lccj a 








t 










c 




o 






a 


o 


nycoi o 


— 


1 6 t O 


/ I 23 


— 




II *k 


— 




( i f5 




ft 










i 1 


+ 
















c 




a 


a 




o 


o 






i C cc 


\nn 




Sec- 


i i m 






1 1 "?a 







i 1^7 


+ 




l 










t 








o 


O 




c 








o 


I^COi c 




ICCO 


t ( 
















o 




4 








+ 






t 


sec 






c 


> 




c 


c 




c, 
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NOTE: All terrain cards must be complete. Finish last card of each section with zero distances and elevations. 



© O O 



DTM 

TERRAIN DATA INPUT FORM 



CARD TYPE 



IT 



BASELINE NUMBER 



IBL 



O O I 



DTM DESI 
IDA STATION 

10600.000 
10800.000 
10800.000 
11000.000 
11000.000 
11200.000 
11200.000 
11400.000 
11400.000 
11600.000 
11600.000 
11800.000 
11800.000 
12000.000 
12000.000 
12200.000 
12200.000 
12400.000 
12400.000 



GN SYSTEM ** 
CUT VOL 
CUT AREA 
87124.76!) 
620356.48 - 
80371.489 - 
563046.07 - 
71650.953 
464908.37 - 
53874.307 - 
373042.48 - 
46847.172 - 
309491.07 - 
36715.416 - 
363623.94 - 
61463.050 
412080.55 
49798.705 
372205.55 
50696.802 
406408.00 
59033.363 



MATERIALS 
FILL VOL 
FILL AREA 
.00000000 
105.14814 
28.390000 
105.14814 
.00000000 
997.19388 
269.24235 
7289.4977 
1698.9221 
8479.4214 
590.52173 
2187.1175 
.00000000 
.00000000 
.00000000 
.00000030 
.00000000 
.00000000 
.00000000 



CLASSIFICATION / VOLUMES 



ACUM CUT 


ACUM FILL 


MASS 


HAUL 


m oooooooo 


-105. 14814 


-105.1 


4814 


m nooooooo 


-2 10 • 29628 


-210.29628 




-1207* 4901 


-1207. 


4901 


+00000000 


-8&QA* 9878 


-8496. 


9878 


• uuuuuuuu 


— 1 AQ7A « IlCiQ 


-16976 


.409 


.00000000 


-19163.526 


-19163 


.526 


.00000000 


-19163.526 


-19163 


• 526 


.00000000 


-19163.526 


-19163 


.526 


.00000000 


-19163.526 


-19163 


.526 



\0 



APPENDIX 2 
PROGRAMMING SYSTEMS 



PROGRAMMING SYSTEMS 



Programs in the DTM Design System have been written in the FORTRAN 
language for the I8M 1620. FORTRAN was selected as the source language 
for several reasons. 

1 . Compat ibi 1 ity 

FORTRAN is compatible with more machines and more 
manufacturers than any other presently available language. 

2. Useability 

As a language it is easily understood by engineers 
and can be quickly translated into other languages. 

3. Flexibility 

Program changes can be quickly accommodated and 
recompiled. This is important to both originating 
and using organizations. 

4. Efficiency 

The language is comparatively efficient in both 
programming and in production processing. Higher efficiencies 
can undoubtedly be achieved by reprogramming in a symbolic 
language after the final form of the program is completely 
established. The final form will necessarily vary from 
organization to organization. Higher production speeds 
can also be attained by the use of floating point hardware. 

The Terrain Preparation/Edit program was compiled with the 1620 FORTRAN 
With Format Processor and Standard Subroutines in order to take full 
advantage of the ability to output messages. This programming system is 
described in IBM 1620 FORTRAN (card FORTRAN With Format), File Number 
2.0.002A, October, 1961. 

All other programs in the System were compiled using the standard 
IBM 1620 FORTRAN with a set of modified subroutines. This programming 
system is described in IBM 1620 FORTRAN, File Number 2.0.002, 7 April I96I . 



This processor was used primarily to alleviate the shortage of memory capacity. 

In order to fit the system programs onto a 20K machine, it was necessary 

to condense them to the utmost and to use the very smallest processor 

available/This space requirement and the requirement for some form of 

format control led to the development of the Flexible Format Subroutines and 

the Plot Subroutines. These subroutines are described fully in the Civil 

Engineering Systems Laboratory publications numbers 153 and 154. The major characteristics 

of these programs are as follows: 

Flexible Format Subroutines 

1. Reads and punches 80 card columns. 

2. Numbers are placed in the output card in sequential form as 
expressed by the list of the punch statements. 

3. E-forms of numbers are suppressed. 

4. F-forms of numbers always require 11 digits. 

5. I -forms of numbers require 2 digits in addition to the ( 
number of digits in the number. 

6. Hollerith information can be read from a data card and 
subsequently punched onto the output by the placement of an 

in card column one of the data card. 

7. Typewriter printing has been supressed. 
Plot Subroutines 

1. Reads and punches 80 card columns. 

2. Modified PCHFL and PCHFX subroutines control the format 
of the output. Their operation depends on the mode and 
sign of transmitted quantities. 

3. The programs are written so that plot characters are placed 

in the proper card columns by the PCHFL and PCHFX subroutines. 

k. Cards produced by the programs are listed on a specially 
wired 407 Accounting Machine wiring panel to produce 
measurable plots. 




APPENDIX 3 
1+07 PLOT PANEL 




DTM DESIGN SYSTEM PLOT PANEL 
Wiring Diagram for Type 407 Panel 



Connect Wires 
From——— To 



Al, Aitl 
Al, T2I 



B\k], BJ^I 



B1-B20, U21-U40 
A2-A20, T22-TM) 
A21-Aif0, U1-U20 



B\kk-B\60, BJMf-BJ60 
BI73-BI78, BJ73-BJ78 
BKk\, BLk\ 



BK76-BK80, BL76-BL80 



BM, BSk 
F55, MM 

G79-G8O, H79-H8O 

H53, L54 

153, S7 

J53, AC 7 

K53, V45 

K74, L7<+ 

K76, 072 

L76, M53 

L53, MO 

L55, N54 

N53, 053 

N55, 055 

S1-S6, AC1-AC6 

S8-S40, AC8-AC40 

T1-T20, AE1-AE20 

I BfiM-8G53, BH41-BH53 

BG62-BG80, BH62-BH80 





o 




■■SB 



C 



DTM DESIGN 
D BL STA 
10600.000 
10600.000 
10600.000 
10600.000 
10600.000 
10600. COO 
10800.000 
10800.000 
10800.000 
10800.000 
10800.000 
10800.000 
10800.000 
11000.000 
11000.000 
11000.000 
11000.000 
11000.000 
11000.000 
11200.000 
11200*000 
11200.000 
11200.000 
11200.000 
11200.000 
11400.000 

1 1400.000 
11400.000 

11400.000 

11400.000 

11400.000 

11600.000 

11600.000 

11600.000 

11600.000 

11600.000 

11600.000 

11800.000 

11800.000 

'11800.000 

11800.000 

11800.000 

11800.000 

12000.000 

12000.000 

12000.000 

12000.000 

12000.000 

12000.000 

12200.000 

12200.000 

12200.000 

12200.000 

12200.000 

12200.000 

12400.000 

12400. COO 



SYSTEM ** MATERIALS CLASSIFICATION 7 PREPARATION 



ELEV OFF 

1290 -670 
1203 173 



ELEV OFF 

1275 -440 
1203 173 



ELEV OFF 

1250 -210 
1203 174 



1203 
1203 
1203 
1195 



193 
225 
256 
465 



1203 
1203 
1203 
1200 



205 
237 
256 
700 



1203 
1203 
1203 
1225 



211 
249 
257 
1000 



OFF 
-1060 
172 
180 
219 
255 
335 

-1025 1265 -880 1275 -760 1280 -645 
-90 1225 119 1211 154 1203 159 
163 1202 163 1202 169 1202 182 

1201 210 1202 217 

1202 249 1202 251 

1203 310 1200 400 
1240 
1270 -250 1250 -20 



202 
242 
257 
730 
-1040 
78 1202 
91 1201 



1202 
12C2 
1203 
1225 



1202 
1202 
1201 
1198 


1225 

81 1201 83 1200 85 1201 85 
104 1201 117 1201 124 1201 



206 
249 
256 
1080 



ELEV OFF ELEV 

1225 168 1201 

1203 174 1203 

1203 .215 1202 

1203 255 1203 

1203 281 1196 
1240 
1275 -310 1250 
1202 161 1201 

195 1202 

229 1202 

253 1202 

470 1200 



1260 -720 



132 1201 139 
171 1201 173 
310 1210 640 
-1020 1250 -610 



1201 151 1201 164 1201 

1200 175 1201 177 1202 

1225 1050 1245 

1260 -210 1250 -67 1239 



35 1222 
1201 
128 1200 
171 1201 
204 1214 



12 1201 
1200 
1200 



15 1200 17 1199 19 1200 19 1200 25 
37 1200 50 1200 56 1200 60 1199 64 
71 1200 83 1200 96 1200 102 1200 102 1200 
104 1199 106 1200 108 1201 157 1224 370 1220 
550 1225 1030 1250 
-1050 1235 -850 1250 -750 1252 -270 1248 -120 1244 
-31 1200 -29 1199 -27 1198 -25 1199 -25 1199 
-18 1199 -6 1199 5 1199 11 1199 15 1198 
19 1199 25 1199 37 1199 50 1199 56 1199 
56 1199 58 1198 60 1199 62 1200 137 1237 
410 1230 960 1250 1000 1255 
-1050 1225 -760 1237 -240 1225 -160 1220 -104 1223 
-54 1198 -52 1197 -50 1196 -48 1197 -48 1197 
-42 1198 -30 1198 -18 1198 -12 1197 -8 1196 
-4 1197 1 1198 13 1198 25 1198 31 1197 
31 1197 33 1196 35 1197 37 1198 101 1230 
375 1240 850 1250 980 1260 
-1060 1217 -675 1223 -200 1217 -100 1218 -58 1197 
-56 1196 -54 1195 -52 1196 -52 1196 -46 1197 
-34 1197 -22 1197 -16 1196 -12 1195 -8 1196 
-2 1197 9 1197 21 1197 27 1196 27 1196 
29 1195 31 1196 33 1197 81 1222 240 1225 
550 1250 960 1267 
-1060 1200 -780 1210 -380 1200 -290 1197 -200 1200 
-64 1207 -43 1196 -41 1195 -39 1194 -37 1195 
-37 1195 -31 1195 -19 1195 -6 1195 -0 1195 
3 1194 7 1195 13 1195 25 1195 37 1195 
43 1195 43 1195 45 1194 47 1195 49 1196 
87 1215 270 1225 460 1250 960 1270 
-1050 1185 -340 1180 -100 1200 -45 1204 -9 1195 
-5 1194 -3 1193 -1 1194 -1 1194 4 1194 
17 1194 29 1194 35 1194 39 1193 43 .1194 
49 1194 62 1194 74 1194 80 1194 80 1194 
82 1193 84 1194 86 1195 133 1218 220 1225 
560 1250 960 1260 
-1050 1170 -900 1175 -720 1180 -530 1175 -450 1170 
-380 1175 -10 1200 15 1201 46 1194 51 1193 



?1 



1 



12400.000 


53 


1192 


55 1193 55 


1193 61 


1193 


74 


1193 




12400.000 


87 


1193 


93 1193 97 


1192 102 


1193 108 


1193 


12400.000 


121 


1193 


133 


1193 


140 


1193 


140 


1193 


142 




12400.000 


144 


1193 


146 


1194 


190 


1215 


320 


1225 


640 


1230^* 


12400.000 


980 


1235 






















12600.000 


-1040 


1175 


-830 


1150 


-620 


1159 


-260 


1175 


98 


1197 


12600.000 


119 


1193 


123 


1192 


12 5 


1191 


127 


1192 


127 


1192 


12600.000 


134 


1192 


146 


1192 


159 


1192 


165 


1192 


170 


1191 


12600.000 


174 


1192 


180 


1192 


193 


1192 


206 


1 192 


212 


1192 


12600.000 


212 


1192 


214 


1191 


217 


1192 


2 19 


1193 


244 


1205 


12600.000 


570 


1220 


930 


•1225 


990 


1230 












12800.000 


-1050 


1185 


-900 


1175 


-590 


1150 


-550 


1140 


-520 


1150 


12800.000 


-100 


1175 


181 


1188 


198 


1192 


199 


1192 


199 


1192 


12800.000 


200 


1192 


200 


1192 


206 


1192 


219 


1192 


232 


1192 


12800.000 


238 


1192 


242 


1191 


246 


1192 


253 


1192 


266 


1192 


12800.000 


278 


1192 


285 


1192 


285 


1192 


287 


1191 


289 


1192 


12800.000 


293 


1193 


295 


1193 


430 


1200 


1000 


1220 








